^  A\  U.S.  ARMY 

M  RDECOM 


TECHNICAL  REPORT  RDMR-SS-12-11 


Method  of  Characteristic  (MOC) 
Nozzle  Flowfield  Solver — User’s 
Guide  and  Input  Manual 


Kevin  D.  Kennedy 

System  Simulation  and  Development  Directorate 
Aviation  and  Missile  Research,  Development, 
and  Engineering  Center 


January  2013 


Distribution  Statement  A:  Approved  for  public  release; 
Distribution  is  unlimited. 


<AMPDE c 


DESTRUCTION  NOTICE 


FOR  CLASSIFIED  DOCUMENTS,  FOLLOW  THE  PROCEDURES  IN 
DoD  5200.22-M,  INDUSTRIAL  SECURITY  MANUAL,  SECTION  11-19 
OR  DoD  5200.1-R,  INFORMATION  SECURITY  PROGRAM  REGULATION, 
CHAPTER  IX.  FOR  UNCLASSIFIED,  LIMITED  DOCUMENTS,  DESTROY 
BY  ANY  METHOD  THAT  WILL  PREVENT  DISCLOSURE  OF  CONTENTS 
OR  RECONSTRUCTION  OF  THE  DOCUMENT. 


DISCLAIMER 


THE  FINDINGS  IN  THIS  REPORT  ARE  NOT  TO  BE  CONSTRUED 
AS  AN  OFFICIAL  DEPARTMENT  OF  THE  ARMY  POSITION 
UNLESS  SO  DESIGNATED  BY  OTHER  AUTHORIZED  DOCUMENTS. 


TRADE  NAMES 


USE  OF  TRADE  NAMES  OR  MANUFACTURERS  IN  THIS  REPORT 
DOES  NOT  CONSTITUTE  AN  OFFICIAL  ENDORSEMENT  OR 
APPROVAL  OF  THE  USE  OF  SUCH  COMMERCIAL  HARDWARE 
OR  SOFTWARE. 


REPORT  DOCUMENTATION  PAGE 

Form  Approved 

OMB  No.  074-0188 

Public  reporting  burden  for  this  collection  of  information  is  estimated  to  average  1  hour  per  response,  including  the  time  for  reviewing  instructions,  searching  existing  data  sources, 
gathering  and  maintaining  the  data  needed,  and  completing  and  reviewing  this  collection  of  information.  Send  comments  regarding  this  burden  estimate  or  any  other  aspect  of  this  collection 
of  information,  including  suggestions  for  reducing  this  burden  to  Washington  Headquarters  Services,  Directorate  for  Information  Operations  and  Reports,  1215  Jefferson  Davis  Highway, 

Suite  1204,  Arlington,  VA  22202-4302,  and  to  the  Office  of  Management  and  Budget,  Paperwork  Reduction  Project  (0704-0188),  Washington,  DC  20503 

1 .  AGENCY  USE  ONLY  2.  REPORT  DATE 

January  2013 

3.  REPORT  TYPE  AND  DATES  COVERED 

Final 

4.  TITLE  AND  SUBTITLE 

Method  of  Characteristic  (MOC)  Nozzle  Flowfield  Solver — User’s 

Guide  and  Input  Manual 

5.  FUNDING  NUMBERS 

6.  AUTHOR(S) 

Kevin  D.  Kennedy 

7.  PERFORMING  ORGANIZATION  NAME(S)  AND  ADDRESS(ES) 

Commander,  U.S.  Army  Research,  Development,  and 

Engineering  Command 

ATTN:  RDMR-SSM-A 

Redstone  Arsenal,  AL  35898-5000 

8.  PERFORMING  ORGANIZATION 

REPORT  NUMBER 

TR-RDMR-SS-12-1 1 

9.  SPONSORING  /  MONITORING  AGENCY  NAME(S)  AND  ADDRESS(ES) 

10.  SPONSORING  /  MONITORING 

AGENCY  REPORT  NUMBER 

11.  SUPPLEMENTARY  NOTES 

12a.  DISTRIBUTION  /  AVAILABILITY  STATEMENT 

Approved  for  public  release;  distribution  is  unlimited. 

12b.  DISTRIBUTION  CODE 

A 

13.  ABSTRACT  (Maximum  200  Words) 

The  Method  of  Characteristic  (MOC)  Nozzle  Flowfield  Solver  code  is  a  structured,  Two-Dimensional  (2-D), 
isentropic  supersonic  flow  solver  for  rocket  nozzle  problems.  The  code  uses  a  marching  step  method  based  on  a 
second  order  modified  Euler  predictor/corrector  scheme  with  iteration.  The  initial  starting  line  is  determined 
either  by  a  user-input  profile  or  by  Sauer’s  method  for  determining  the  sonic  line.  Initial  wall  options  include  a 
starting  circular  arc  that  can  be  followed  by  a  second  order  quadratic  wall  based  on  user  inputs.  The  remaining 
downstream  wall  is  then  determined  by  the  local  characteristic  and  mass  flow  rate.  A  simple  boundary-layer 
correction  using  a  one-eighth  power  law  is  used  to  determine  the  viscous  corrected  shape.  The  software  coding 
is  written  in  Fortran  90.  Input  files  are  used  to  transfer  information  to  the  program. 

14.  SUBJECT  TERMS 

Method  of  Characteristic  (MOC),  Nozzle,  Flowfield  Solver 

15.  NUMBER  OF  PAGES 

127 

16.  PRICE  CODE 

17.  SECURITY  CLASSIFICATION  18.  SECURITY  CLASSIFICATION 
OF  REPORT  OF  THIS  PAGE 

UNCLASSIFIED  UNCLASSIFIED 

19.  SECURITY  CLASSIFICATION 

OF  ABSTRACT 

UNCLASSIFIED 

20.  LIMITATION  OF  ABSTRACT 

SAR 

NSN  7540-01  -280-5500  Standard  Form  298  (Rev.  2-89) 

Prescribed  by  ANSI  Std.  Z39-18 
298-102 


i/ii  (Blank) 


11 


TABLE  OF  CONTENTS 


Page 


1.  INTRODUCTION .  1 

2.  PROGRAM  READS  AND  WRITES .  1 

2.1  File  Description .  1 

2.2  Program  Reads .  2 

2.2.1  Nozzle.inp  File .  2 

2.2.2  Profile.dat  File .  2 

2.3  Program  Writes .  2 

2.3.1  CENTERLINE.dat  File .  2 

2.3.2  SLOPE.dat  File .  2 

2.3.3  SLOPE_SMOOTHED.dat  File .  2 

2.3.4  WALL.dat  File .  2 

2.3.5  WALL_SMOOTHED.dat  File .  3 

2.3.6  WALL_BOUNDARY_CORRECTED.dat  File .  3 

2.3.7  WALL_BOUNDARY_CORRECTED_SMOOTHED.dat  File .  3 

2.3.8  STARTING  CONDITIONS.dem  File .  3 

2.3.9  WALL  DEFINITION.dem  File .  3 

2.3.10  X_Y_FUN.dem  File .  3 

2.3.11  fort.7,  fort.8,  fort.9,  fort.10,  fort.ll,  and  fort.13  Files .  4 

3.  NAMELIST  INPUTS .  4 

3.1  Overview .  4 

3.2  &INPUT  Namelist  Definition .  4 

3.2.1  Tolerance  Controls .  4 

3.2.2  Control  Values .  7 

3.2.3  Gas  Properties .  9 

3.2.4  Nozzle  Wall  Properties .  10 

3.2.5  Nozzle  Solution  Parameters .  11 

REFERENCES .  13 

LIST  OF  ACRONYMS  AND  ABBREVIATIONS .  14 

APPENDIX  A:  FLOW  CHART . A-l 

APPENDIX  B:  EXAMPLE  1 . B-l 


iii 


TABLE  OF  CONTENTS  (CONCLUDED) 

Page 

APPENDIX  C:  EXAMPLE  2 . C-l 

APPENDIX  D:  EXAMPLE  3 . D-l 

APPENDIX  E:  EXAMPLE  4 . E-l 

APPENDIX  F:  EXAMPLE  5 . F-l 

APPENDIX  G:  ERROR  MESSAGES . G-l 

APPENDIX  H:  FORTRAN  90  CODE . H-l 

LIST  OF  TABLES 

Table  Title  Page 

1.  Summary  of  Input/Output  Files .  1 

2.  Namelist  Input  Summary .  5 


iv 


1.  INTRODUCTION 


The  Method  of  Characteristic  (MOC)  Nozzle  Flowfield  Solver  code  is  a  structured, 
Two-Dimensional  (2-D),  isentropic  supersonic  flow  solver  for  rocket  nozzle  problems.  The  code 
uses  a  marching  step  method  based  on  a  second  order  modified  Euler  predictor/corrector  scheme 
with  iteration.  The  initial  starting  line  is  determined  either  by  a  user-input  profile  or  by  Sauer’s 
method  for  determining  the  sonic  line.  Initial  wall  options  include  a  starting  circular  arc  that  can 
be  followed  by  a  second  order  quadratic  wall  based  on  user  inputs.  The  remaining  downstream 
wall  is  then  determined  by  the  local  characteristic  and  mass  flow  rate.  A  simple  boundary-layer 
correction  using  a  one-eighth  power  law  is  used  to  determine  the  viscous  corrected  shape.  The 
software  coding  is  written  in  Fortran  90.  Input  files  are  used  to  transfer  information  to  the 
program. 

2.  PROGRAM  READS  AND  WRITES 

This  section  describes  the  files  that  are  both  used  and  generated  by  the  MOC  code.  A 
description  of  the  contents  of  each  file  is  given  in  the  following  section. 

2.1  File  Description 

The  input  and  output  files  utilized  by  the  code  are  listed  in  Table  1.  The  user  must 
provide  the  files  that  are  read  by  the  MOC  code. 


Table  1.  Summary  of  Input/Output  Files 


Filename 

File  Descriptor 

Format 

Program 

Read/ 

Writes 

Nozzle.inp 

Main  input  variable  file 

ASCII 

Read 

Profile.dat 

User  input  start  line 

ASCII 

Read 

CENTERLINE.dat 

Centerline  properties 

ASCII 

Write 

SLOPE.dat 

Wall  slope  file 

ASCII 

Write 

SLOPE_SMOOTHED.dat 

Fitted  wall  slope  file 

ASCII 

Write 

WALL.dat 

Wall  file 

ASCII 

Write 

WALL_BOUNDARY_CORRECTED.dat 

Boundary  layer  wall  file 

ASCII 

Write 

WALL_BOUNDARY_CORRECTED_SMOOTHED.dat 

Corrected  BL  wall  file 

ASCII 

Write 

WALL_SMOOTHED.dat 

Fitted  wall  file 

ASCII 

Write 

STARTINGCONDITIONS  .dem 

Start  line  plot  file 

GNU 

Write 

WALLDEFINITION.dem 

Wall  shape  plot  file 

GNU 

Write 

X_Y_FUN.dem 

Nozzle  flow  plot  file 

GNU 

Write 

fort.7 

Start  line  solution 

ASCII 

Write 

fort.  8 

Circular  arc  solution 

ASCII 

Write 

fort.  9 

2nd-order  wall  solution 

ASCII 

Write 

fort.  10 

Final  C+  Chara  line 

ASCII 

Write 

fort.  1 1 

Turning  region  flow 

ASCII 

Write 

fort.  13 

Inviscid  flow  boundary 

ASCII 

Write 

1 


2.2  Program  Reads 

This  section  details  the  files  that  are  read  into  the  MOC  code.  The  user  is  required  to 
generate  these  files. 

2.2.1  Nozzle. inp  File 

This  file  is  the  main  input  file.  It  is  in  Fortran  Namelist  format.  Details  of  this 
format  are  given  in  Section  3. 

2.2.2  Profile.dat  File 

The  “Profile.dat”  is  dependent  on  user  input.  It  contains  the  start  line 
properties  for  the  initial  valued  solution.  It  is  a  formatted  American  Standard  Code  for 
Information  Interchange  (ASCII)  file.  This  file  must  start  with  conditions  on  the  centerline 
and  move  up  to  the  wall.  It  must  be  in  the  format  of  I,  J,  K,  X,  Y,  Z,  Rho,  U,  V,  W,  and  P; 
where  I,  J,  and  K  are  integer  index  values;  X,  Y,  and  Z  are  the  point  locations  (Z  is  not  used); 
Rho  is  the  density;  U,  V,  and  W  are  the  velocity  components;  and  P  is  the  pressure.  The 
temperature  is  calculated  by  the  equation  of  state  from  the  density  and  pressure. 

2.3  Program  Writes 

This  section  details  the  files  that  are  written  out  by  the  MOC  code.  The  main  source 
of  output  and  errors  is  directed  to  Fortran  Unit  6,  which  typically  is  the  main  terminal  widow 
from  which  the  code  was  executed.  It  is  left  to  the  user  to  capture  this  information. 

2.3.1  CENTERLINE.dat  File 

This  file  is  written  out  by  the  MOC  code  and  contains  the  centerline  properties. 
The  radial  location  (Y),  V  velocity,  and  Flow  angle  are  defined  to  be  of  zero  value.  Breaks  in 
this  file  contain  header  information. 

2.3.2  SLOPE.dat  File 

This  two  column  formatted  ASCII  file  contains  the  inviscid  wall  slope 
information.  It  is  in  the  form  of  axial  location  verses  the  wall  slope. 

2.3.3  SLOPE_SMOOTHED.dat  File 

This  two  column  formatted  ASCII  file  contains  the  inviscid  wall  slope 
information  after  it  has  been  processed  through  the  least-squared  curve  fit  approximation. 

The  order  of  this  fit  is  a  user  input  variable  (IORDER)  in  namelist  INPUT. 

2.3.4  WALL.dat  File 

This  multi-column  formatted  ASCII  file  contains  the  inviscid  wall  properties. 

It  contains  a  header  row  detailing  the  wall  locations  and  properties. 
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2.3.5  WALL_SMOOTHED.dat  File 

This  two-column  formatted  ASCII  file  contains  the  inviscid  wall  location  after 
it  has  been  processed  through  the  least-squared  curve  fit  approximation. 

2.3.6  WALL_BOUNDARY_CORRECTED.dat  File 

This  multi-column  formatted  ASCII  file  contains  the  boundary  layer  corrected 
file.  This  boundary  layer  model  is  a  simplest  model  that  adds  a  correction  factor  to  the  wall 
based  solely  on  local  conditions  and  axial  length.  It  contains  an  I,  J  index  pair;  the  original 
inviscid  X,  Y  point  location;  normalized  temperature;  viscosity;  Reynolds  number;  a 
one-eighth  power  law  boundary  layer  thickness;  and  the  new  viscous  radial  location. 

2.3.7  WALL_BOUNDARY_CORRECTED_SMOOTHED.dat  File 

This  two-column  formatted  ASCII  file  contains  the  boundary  layer  corrected 
wall  after  it  has  been  processed  through  the  least-squared  curve  fit  approximation. 

2.3.8  STARTING  CONDITIONS.dem  File 

This  plot  file  is  in  the  GNU  plot  format.  GNU  is  a  portable  command-line 
driven  graphing  utility  for  Finux,  Operating  System  (OS)/2,  Microsoft  (MS)  Windows, 

Mac  OS  10  (X),  and  VMS  platforms.  The  source  code  is  copyrighted  but  freely  distributed. 
It  currently  supports  batch  mode  operations.  The  home  website  can  be  found  at 
http://www.gnuplot.info/. 

This  plot  file,  when  used  with  the  GNUPFOT  program,  is  set  up  to  generate  a 
viewable  plot  file  in  Portable  Document  Format  (PDF)  format  named 
“STARTING_CONDITIONS.pdf.”  It  will  contain  the  starting  radial  pressure,  temperature, 
density,  and  Mach  number.  Additionally,  at  each  point  the  solution  generated  from  the 
downward  running  characteristic  is  also  shown.  The  user  can  use  this  information  to  help 
determine  if  the  initial  solution  is  valid. 

2.3.9  WAFF  DEFINITION.dem  File 

This  plot  file  is  in  the  GNU  plot  format.  This  plot  file,  when  used  with  the 
GNUPFOT  program,  is  set  up  to  generate  a  viewable  plot  file  in  PDF  format  named 
“WAFF_DEFINITION.pdf.”  It  will  contain  the  final  wall  shape  for  both  the  inviscid  and 
viscous  solution.  This  file  is  a  subset  of  the  X_Y_FUN.dem  file. 

2.3.10  X  Y  FUN.dem  File 

This  plot  file  is  in  the  GNU  plot  format  and  is  the  main  file  used  for  viewing 
the  results  of  the  MOC  code.  This  plot  file,  when  used  with  the  GNUPFOT  program,  is  set 
up  to  generate  up  to  eight  different  plots.  These  plots  are  in  PDF  format.  The  file  is  named 
“X_Y_FUN.pdf.”  The  first  plot  displays  the  matching  locations  for  each  section  of  the 
nozzle.  Each  point  is  highlighted  by  a  symbol.  The  second  plot  is  identical  to  the  first  plot 
but  without  the  symbol  markers.  This  makes  the  plot  easier  to  understand  if  the  input 
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resolution  is  set  very  high.  The  next  plot  file  is  a  colored  image  of  Mach  number  flow  within 
the  nozzle.  The  fourth  file  is  of  axial  velocity  and  the  fifth  is  of  radial  velocity.  The  sixth 
plot  is  of  flow  angle.  Strong  waves  with  the  flowfield  are  apparent  in  this  plot.  The  seventh 
plot  is  of  the  wall  shape.  The  four  curves  are  of  the  original  and  smooth  profiles  of  booth  the 
viscous  and  inviscid  solutions.  The  last  plot  is  the  slope  of  the  original  wall  and  the  slope  of 
the  smoothed  wall.  This  plot  is  useful  at  determining  where  the  waves  within  the  nozzle  are 
hitting  the  wall. 

2.3.11  fort.7,  fort.8,  fort.9,  fort.10,  fort.ll,  and  fort.13  Files 

These  files  contain  the  data  needed  to  generate  the  plot  files  and  are  not 
intended  to  be  used  by  the  user.  Once  the  users  generate  the  PDF  files,  the  “fort.  *”  files  can 
be  safely  removed. 

3.  NAMELIST  INPUTS 

3.1  Overview 

The  main  MOC  input  file  contains  user  specified  values  arranged  in  a  Fortran 
namelist.  A  namelist  is  a  method  of  ordering  input  data  into  a  routine.  The  name  of  the  namelist 
is  preceded  by  the  “&”  symbol,  which  is  located  in  the  second  column  of  the  input  file.  The 
namelist  is  terminated  by  either  a  or  “&END,”  also  beginning  in  the  second  column  of  the 
input  file.  Comments  may  be  placed  within  the  file  at  any  position  but  must  be  preceded  with 
the  “!”  symbol. 

There  is  only  one  namelist  group.  This  group  will  define  the  options  for  different 
features,  including  code  operation,  flowfield  and  boundary  conditions,  and  output.  All  supported 
variables  in  the  namelist  will  be  described  along  with  any  default  information. 

3.2  &INPUT  Namelist  Definition 

Namelist  &INPUT  is  used  to  define  run  time  parameters  and  reference  quantities.  It 
is  read  only  once  from  the  “NOZZLE.inp”  file.  It  contains  several  parameters.  To  simplify  the 
definition  of  parameters,  they  have  been  grouped  and  are  listed  in  Table  2  with  a  page  reference 
for  more  detailed  information. 
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Table  2.  Namelist  Input  Summary 


Tolerance 

Page 

Control 

Page 

Gas 

Page 

Nozzle 

Page 

Nozzle 

Page 

No. 

Values 

No. 

Properties 

No. 

Properties 

No. 

Solution 

No. 

ICOR 

7 

DELTA 

8 

PS 

9 

YT 

10 

IVL 

11 

El 

7 

NI 

8 

TS 

10 

RTU 

11 

EMD 

11 

E2 

7 

NT 

8 

PA 

10 

RTD 

11 

IFINAL 

11 

E3 

7 

KWRITE 

8 

G 

10 

AA 

11 

BLSCALE 

11 

E4 

8 

IUNITS 

8 

RG 

10 

AE 

11 

E5 

8 

ST 

9 

GL 

10 

XE 

11 

SMOOTH 

9 

GC 

10 

IORDER 

9 

3.2.1  Tolerance  Controls 

The  variables  in  this  section  deal  with  the  tolerance  controls  within  the  code.  In 
general,  these  values  do  not  need  to  be  changed. 

&INPUT:  ICOR  Date  Type:  Integer 

Description:  Specify  the  number  of  Predictor/Corrector  steps. 


Value 

Description 

Default 

>0 

Number  of  steps 

30 

&INPUT:  El  Date  Type:  Real 

Description:  Convergence  tolerance  for  location,  m. 


Value 

Description 

Default 

>  =  0 

Minimum  error  in  spatial  step  error  absolute 

1.0E-06 

•  A  value  of  zero  means  that  this  term  will  not  be  used  to  determine  the  convergence  of  the 
solution. 


5 


&INPUT:  E2 


Date  Type:  Real 


Description:  Fractional  convergence  tolerance  for  pressure. 


Value 

Description 

Default 

>  =  0 

Minimum  fractional  error  in  pressure 

1.0E-06 

•  A  value  of  zero  means  that  this  term  will  not  be  used  to  determine  the  convergence  of  the 
solution. 


•  Error  is  determined  by  comparing  the  difference  in  the  pressure/predicted  pressure  to 
E2*predicted  pressure. 


&INPUT :  E3  Date  Type:  Real 

Description:  Fractional  convergence  tolerance  for  density. 


Value 

Description 

Default 

>  =  0 

Minimum  fractional  error  in  density 

1.0E-06 

•  A  value  of  zero  means  that  this  term  will  not  be  used  to  determine  the  convergence  of  the 
solution. 


•  Error  is  determined  by  comparing  the  difference  in  the  density/predicted  density  to 
E3*predicted  density. 


&INPUT:  E4  Date  Type:  Real 

Description:  Fractional  convergence  tolerance  for  velocity. 


Value 

Description 

Default 

>  =  0 

Minimum  fractional  error  in  velocity 

1.0E-06 

•  A  value  of  zero  means  that  this  term  will  not  be  used  to  determine  the  convergence  of  the 
solution. 


•  Error  is  determined  by  comparing  the  difference  in  the  velocity/predicted  velocity  to 
E4*predicted  velocity. 
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&INPUT:  E5 


Date  Type:  Real 


Description:  Fractional  convergence  tolerance  for  flow  angle. 


Value 

Description 

Default 

>  =  0 

Minimum  fractional  error  in  flow  angle 

1.0E-06 

•  A  value  of  zero  means  that  this  term  will  not  be  used  to  determine  the  convergence  of  the 
solution. 


•  Error  is  determined  by  comparing  the  difference  in  the  flow  angle/predicted  flow  angle  to 
E5*predicted  flow  angle. 

3.2.2  Control  Values 

The  values  in  this  section  deal  with  the  solutions  resolution. 


&INPUT:  DELTA  Date  Type:  Real 

Description:  Axi  or  Planar  calculation. 


Value 

Description 

Default 

0.0 

Planer  solution 

1.0 

Axisymmetric  solution 

* 

&INPUT:  NI  Date  Type:  Integer 

Description:  Specify  number  of  points  on  the  inflow  plane. 


Value 

Description 

Default 

>0 

Number  of  points 

21 

&INPUT:  NT  Date  Type:  Integer 

Description:  Specify  number  of  points  that  define  the  circular  arc  wall. 


Value 

Description 

Default 

>0 

Number  of  points 

15 
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&INPUT:  KWRITE 


Date  Type:  Integer 


Description:  Turn  on  the  output. 


Value 

Description 

Default 

1 

Output  control 

1 

•  Both  the  output  and  the  errors  are  directed  to  Unit  6. 


&INPUT:  IUNITS  Date  Type:  Integer 

Description:  Specify  input  units. 


Value 

Description 

Default 

2 

Input  Units 

2 

•  All  units  must  be  input  as  standard  SI  units  (N/m,  m/s,  kg/mA3,  and  so  forth). 


&INPUT:  ST  Date  Type:  Integer 

Description:  Specify  radial  start  line  spacing  from  wall. 


Value 

Description 

Default 

0 

Even  spacing 

* 

1 

Quadratic  spacing 

•  The  user  is  encouraged  to  use  quadratic  spacing  as  this  puts  the  greatest  number  of  points 
in  the  region  of  greatest  change. 


&INPUT:  SMOOTH  Date  Type:  Logical 

Description:  Smooth  the  spacing  of  points  after  each  marching  step. 


Value 

Description 

Default 

.F./.T. 

Smooth  the  points 

.False. 

•  If  true,  the  solution  will  be  linearly  smoothed  after  each  matching  step  but  only  AFTER 
the  completion  of  the  initial  value  start  line  solution.  This  option  will  help  prevent  points 
from  building  up  into  a  strong  wave.  After  each  smoothing  step,  the  code  will  try  to  save 
mass  by  modifying  the  density. 
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&INPUT:  IORDER  Date  Type:  Integer 

Description:  Specify  the  order  of  the  least-squared  curve  fit  for  the  wall  profile. 


Value 

Description 

Default 

>0 

Order  number 

15 

3.2.3  Gas  Properties 


The  variables  in  this  section  define  the  properties  of  the  nozzle  flow  gas. 

&INPUT:  PS  Date  Type:  Real 

Description:  Specify  the  stagnation  gas  pressure  (N/m). 

Default:  70.0E+05 

&INPUT:  PA  Date  Type:  Real 

Description:  Specify  the  ambient  backpressure  pressure  (N/m). 

Default:  0.0E+00 

&INPUT:  TS  Date  Type:  Real 

Description:  Specify  the  stagnation  temperature  (K). 

Default:  3000.0 

&INPUT:  G  Date  Type:  Real 

Description:  Ratio  of  specific  heats  (Gamma). 

Default:  1 .4 
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&INPUT:  RG 


Date  Type:  Real 


Description:  Universal  gas  constant  (J/Kg-K). 

Default:  287.04 

&INPUT:  GL  Date  Type:  Real 

Description:  Unit  conversion  (MA2/MA2). 

Default:  1 .0 

&INPUT:  GC  Date  Type:  Real 

Description:  Unit  Conversion  (M-Kg/N-sA2). 

Default:  1 .0 

3.2.4  Nozzle  Wall  Properties 

The  variables  in  this  section  deal  with  the  initial  shape  of  the  nozzle  wall. 

&INPUT :  YT  Date  Type:  Real 

Description:  Nozzle  throat  radius  (m). 

Default:  1.0 

&INPUT:  RTU  Date  Type:  Real 

Description:  Radius  of  curve  upstream  of  throat  (m). 

Default:  2.0 
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&INPUT:  RTD 


Date  Type:  Real 


Description:  Radius  of  curve  downstream  of  throat  (m). 

Default:  0.5 

&INPUT:  A  A  Date  Type:  Real 

Description:  Attachment  angle  (degree)  of  the  last  point  on  the  circular  arc  wall. 
Default:  10.0 

&INPUT:  AE  Date  Type:  Real 

Description:  Exit  angle  of  nozzle  assuming  no  predicted  wall. 

Default:  10.0 

&INPUT:  XE  Date  Type:  Real 

Description:  Stopping  location  of  nozzle  wall. 

Default:  10.0 

3.2.5  Nozzle  Solution  Parameters 

The  variables  in  this  section  control  additional  parameters  that  affect  the 

solution. 

&INPUT:  EMD  Date  Type:  Real 

Description:  Exit  design  Mach  number  of  the  nozzle. 

Default:  5.0 


11 


&INPUT:  BL  SCALE 


Date  Type:  Real 


Description:  Scale  factor  for  the  boundary  layer  correction  wall  shape.  For  nozzles  with 
large  exit  design  Mach  numbers,  this  factor  may  need  to  be  increased  to  2. 1 . 

Default:  1.0 


&INPUT:  IFINAL  Date  Type:  Integer 

Description:  Number  of  points  on  final  characteristic  line. 


Value 

Description 

Default 

>0 

Number  of  points 

50 

&INPUT:  NOZ  Date  Type:  Integer 

Description:  Nozzle  shape. 


Value 

Description 

Default 

0 

Final  nozzle  shape  will  be  determined  by  the 
MOC  code. 

* 

1 

Nozzle  shape  will  be  limited  to  circular  arc  and 
second  order  quadratic  wall  only 

&INPUT:  IVL  Date  Type:  Integer 

Description:  Start  line  input. 


Value 

Description 

Default 

0 

Transonic  start  line 

* 

1 

User  inputted  start  line 

•  If  NOZ  =  1,  user  must  supply  a  “PROFILE.dat”  file.  This  file  must  start  with  conditions 
on  the  centerline  and  move  up  to  the  wall.  It  must  be  in  the  format  of  I,  J,  K,  X,  Y,  Z, 
Rho,  U,  V,  W,  and  P;  where  I,  J,  and  K  are  integer  index  points;  X,  Y,  and  Z  are  the  point 
locations  (Z  is  not  used);  Rho  is  the  density;  U,  V,  and  W  are  the  velocity  components; 
and  P  is  the  pressure.  The  temperature  is  calculated  by  the  equation  of  state. 
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LIST  OF  ACRONYMS  AND  ABBREVIATIONS 


2-D 

Two  Dimensional 

ASCII 

American  Standard  Code  for  Information  Interchange 

BL 

Boundary  Layer 

MOC 

Method  of  Characteristic 

MS 

Microsoft 

OS 

Operating  System 

PDF 

Portable  Document  Format 

VMS 

Virtual  Memory  System 

X 

Ten 

14 


APPENDIX  A 
FLOW  CHART 


The  flow  chart  is  offered  to  show  the  top-level  processes  of  the  Method  of  Characteristic 
(MOC)  code.  The  details  of  these  processes  are  given  in  the  FORTRAN  coding  of  Appendix  B. 


A-l 


A-2 


APPENDIX  B 
EXAMPLE  1 


Example  1  is  set  up  to  model  an  axisymmetric  nozzle.  The  code  will  calculate  a  transonic 
start  line  based  on  input  conditions.  The  nozzle  wall  is  defined  at  all  locations  with  a  circular  arc 
and  a  second-order  curve.  The  flowfield  calculation  is  stopped  before  the  design  Mach  number 
is  reached.  Data  smoothing  is  turned  on.  This  case  is  designed  to  emphasize  the  presence  of  the 
development  of  strong  waves  near  the  centerline.  These  waves  result  in  grid  lines  crossing  at 
about  5-meters  downstream.  The  user  should  take  note  of  the  variables  highlighted  in  red.  Plots 
of  the  Mach  number  and  flow  angle  are  included. 


&INPUT 


.  .  .  Set  Tolerances 


ICOR 

= 

30 

El 

= 

1.0E-06 

E2 

= 

1.0E-06 

E3 

= 

1.0E-06 

E4 

= 

1.0E-06 

E5 

= 

1.0E-06 

. . .  Set  Control  values 


predictor  corrector  term 
m  X  space  error 
Pressure  error 
Density  error 
Velocity  error 
flow  angle  error 


DELTA  =  1.0 
NI  =  81 

NT  =31 

KWRITE  =  1 
I UNITS  =  2 
SMOOTH  =  . TRUE . 
ST  =1.0 

IORDER  =  15 


! 1  axi,  0  planer  (Mass  flux  not  working  correctly) 
! NUMBER  OF  RADIAL  POINTS  ON  INFLOW  PLANE  (Max  99) 

! NUMBER  OF  CIRULAR  ARC  POINTS 


! EVENLY  SPACE  OUT  THE  DATA  AFTER  EACH  SECTION 
! 0 . 0  Even  space  start  line,  1.0  quadratic  spaced 


. . .  Set  Gas  Properties 


PS 

= 

1600  . 

000E+06  igas  pressure 

TS 

= 

1.000000E+03  igas  temperature 

PA 

= 

0.0 

i ambient  pressure 

G 

= 

1.4 

!  gamma 

RG 

= 

287.040  iJ/KG-K 

GC 

= 

1.0 

! M-KG/N- S^2 

GL 

= 

1.0 

!M^2/M^2 

Set  Nozzle  Properties 

YT 

- 

1.000 

inozzle  radius 

RTU 

= 

2.000 

i radius  of  curve  upstream  of  throat 

RTD 

= 

0.500 

i radius  of  curve  downstream  of  throat 

AA 

= 

15.0 

i attachment  angle 

AE 

= 

15.0 

iexit  angle 

XE 

= 

10.0 

iexit  location 

. . .  Set  Nozzle  Solution 


IVL 

EMD 

NOZ 

I_FINAL 
BL  SCALE 


0  !0  transonic  start,  1  User  defined  input 

5.0  ! design  mach  number 

1  11  nozzle  shape  inputted,  0  nozzle  shape  from  MOC 

201  inumber  of  points  on  final  chara  line 
2.1  ! boundary  layer  scalar 


/ 


B-l 


B-2 


APPENDIX  C 
EXAMPLE  2 


Example  2  is  set  up  to  model  an  axisymmetric  nozzle.  The  code  will  calculate  a  transonic 
start  line  based  on  input  conditions.  The  nozzle  wall  is  initially  defined  with  a  circular  arc.  The 
flowfield  calculation  is  stopped  when  the  design  Mach  number  on  the  centerline  is  reached. 
There  is  no  data  smoothing.  This  case  is  designed  to  emphasize  the  large  attachment  angle  and 
the  creation  of  the  inviscid  wall.  The  user  should  take  note  of  the  variables  highlighted  in  red. 
Plots  of  the  Mach  number  and  flow  angle  are  included. 


& INPUT 


.  .  .  Set  Tolerances 


ICOR 

= 

30 

El 

= 

1.0E-06 

E2 

= 

1.0E-06 

E3 

= 

1.0E-06 

E4 

= 

1.0E-06 

E5 

= 

1.0E-06 

. . .  Set  Control  values 


predictor  corrector  term 
m  X  space  error 
Pressure  error 
Density  error 
Velocity  error 
flow  angle  error 


DELTA 

NI 

NT 

KWRITE 

IUNITS 

SMOOTH 

ST 

IORDER 


1.0 

71 

35 

1 

2 

. FALSE . 
1.0 
30 


! 1  axi,  0  planer 

! NUMBER  OF  RADIAL  POINTS  ON  INFLOW  PLANE  (Max  99) 
! NUMBER  OF  CIRULAR  ARC  POINTS 


! EVENLY  SPACE  OUT  THE  DATA  AFTER  EACH  SECTION 
! 0 . 0  Even  space  start  line,  1.0  quadratic  spaced 


. . .  Set  Gas  Properties 

PS 
TS 
PA 
G 

RG 
GC 
GL 


Set  Nozzle  Properties 

YT 

- 

1.000 

Inozzle  radius 

RTU 

= 

2.000 

! radius  of  curve  upstream  of  throat 

RTD 

= 

0.500 

! radius  of  curve  downstream  of  throat 

AA 

= 

35.0 

! attachment  angle 

AE 

= 

15.0 

!exit  angle 

XE 

= 

10.0 

!exit  location 

1600 . 000E+06 
1 . 000000E+03 
0.0 
1.4 
287  . 

1.0 
1.0 


040 


!gas  pressure 
!gas  temperature 
! ambient  pressure 
!  gamma 
! J/KG-K 
! M-KG/N- S^2 
!M^2/M^2 


. . .  Set  Nozzle  Solution 


IVL 

= 

0 

EMD 

= 

4.5 

NOZ 

= 

0 

I  FINAL 

= 

351 

BL  SCALE 

= 

2.1 

!0  transonic  start,  1  User  defined  input 
! design  mach  number 

!0  calculate  a  MOC  wall,  1  no  MOC  wall  calculated 
! number  of  points  on  final  chara  line 
! boundary  layer  scalar 


c-i 


how  Angie 


C-2 


APPENDIX  D 
EXAMPLE  3 


Example  3  is  set  up  to  model  an  axisymmetric  nozzle.  The  code  will  calculate  a  transonic 
start  line  based  on  input  conditions.  The  nozzle  wall  is  initially  defined  with  a  circular  arc,  then 
a  second-order  quadratic,  and  then  a  calculated  inviscid  wall.  The  flowfield  calculation  is 
stopped  when  the  design  Mach  number  on  the  centerline  is  reached.  Data  smoothing  is  on.  This 
case  is  designed  to  emphasize  how  the  inviscid  wall  cancels  out  the  strong  wave  in  the  flowfield. 
The  user  should  take  note  of  the  variables  highlighted  in  red.  Plots  of  the  Mach  number  and  flow 
angle  are  included. 


&INPUT 

!  .  .  .  Set  Tolerances 


ICOR  = 

30 

! predictor  corrector  term 

El 

1.0E-06 

!m 

X  space  error 

E2 

1.0E-06 

Pressure  error 

E3 

1.0E-06 

Density  error 

E4 

1.0E-06 

Velocity  error 

E5 

1.0E-06 

flow  angle  error 

Set  Control  values 

DELTA 

=  1.0 

!  1 

axi,  0  planer 

NI 

=  71 

! NUMBER  OF  RADIAL  POINTS  ON 

INFLOW  PLANE 

(Max  99! 

NT 

=  31 

! NUMBER  OF  CIRULAR  ARC  POINTS 

KWRITE 

=  1 

IUNITS 

=  2 

ST 

=  1.0 

!  0 

. 0  Even  space  start  line. 

1.0  quadratic 

spaced 

SMOOTH 

=  . TRUE . 

! EVENLY  SPACE  OUT  THE  DATA  AFTER  EACH  SECTION 

. . .  Set  Gas  Properties 


PS 

= 

1600  . 

000E+06  !gas  pressure 

TS 

= 

1 . 000000E+03  !gas  temperature 

PA 

= 

0.0 

! ambient  pressure 

G 

= 

1.4 

!  gamma 

RG 

= 

287.040  ! J/KG-K 

GC 

= 

1.0 

! M-KG/N- S^2 

GL 

= 

1.0 

!M^2/M^2 

Set  Nozzle  Properties 

YT 

- 

1.000 

Inozzle  radius 

RTU 

= 

2.000 

! radius  of  curve  upstream  of  throat 

RTD 

= 

1.000 

! radius  of  curve  downstream  of  throat 

AA 

= 

8.0 

! attachment  angle 

AE 

= 

15.0 

!exit  angle 

XE 

= 

10.0 

!exit  location 

/ 


Set  Nozzle  Solution 


IVL 

= 

0 

!0  transonic  start,  1  User  defined  input 

EMD 

= 

5.0 

! design  mach  number 

NOZ 

= 

0 

! 1  nozzle  shape  inputted,  0  nozzle  shape 

I  FINAL 

= 

301 

! number  of  points  on  final  chara  line 

BL  SCALE 

= 

2.1 

! boundary  layer  scalar 

IORDER 

= 

45 

D-l 


D-2 


APPENDIX  E 
EXAMPLE  4 


Example  4  is  set  up  to  model  an  axisymmetric  nozzle.  The  user  will  specify  the  start  line 
input  conditions.  The  nozzle  wall  is  initially  defined  with  a  circular  arc,  then  a  second-order 
quadratic,  and  then  a  calculated  inviscid  wall.  The  flowfield  calculation  is  stopped  when  the 
design  Mach  number  on  the  centerline  is  reached.  Data  smoothing  is  on.  This  case  is  designed 
to  show  that  the  Method  of  Characteristic  (MOC)  code  can  start  with  an  arbitrary  start  line.  The 
exit  solution  near  the  wall  does  not  match  the  design  Mach  number.  This  is  due  to  a  cold  profile 
that  is  near  the  wall.  The  user  should  take  note  of  the  variables  highlighted  in  red.  Plots  of  the 
start  line  (including  its  initial  flowfield  solution),  Mach  number,  and  flow  angle  are  included. 


&INPUT 


Set  Tolerances 


ICOR 

= 

30 

Ipredictor  corrector 

El 

= 

1.0E-06 

!m  X  space  error 

E2 

= 

1.0E-06 

!  Pressure  error 

E3 

= 

1.0E-06 

!  Density  error 

E4 

= 

1.0E-06 

!  Velocity  error 

E5 

= 

1.0E-06 

!  flow  angle  error 

Set  Control  values 


DELTA  =  1.0 
NI  =  91 

NT  =  15 

KWRITE  =  1 
I UNITS  =  2 
SMOOTH  =  .TRUE. 
ST  =1.0 

IORDER  =25 


! 1  axi,  0  planer 

! NUMBER  OF  RADIAL  POINTS  ON  INFLOW  PLANE  (Max  99) 
! NUMBER  OF  CIRULAR  ARC  POINTS 


! EVENLY  SPACE  OUT  THE  DATA  AFTER  EACH  SECTION 
! 0 . 0  Even  space  start  line,  1.0  quadratic  spaced 


Set  Gas  Properties 


/ 


PS 

= 

1600 . 000E+06 

!gas  pressure  chamber 

TS 

= 

1 . 000000E+03 

!gas  temperature  chamber 

PA 

= 

0.0 

! ambient  pressure 

G 

= 

1.4 

!  gamma 

RG 

= 

287.040 

!Gas  constant  J/KG-K 

GC 

= 

1.0 

! M-KG/N- S^2 

GL 

= 

1.0 

!M^2/M^2 

Set  Nozzle  Properties 
YT  =  1.000  Jnozzle  radius 

RTU  =  2.000  ! radius  of  curvature  upstream  of  throat 

RTD  =  0.500  ! radius  of  curvature  downstream  of  throat 

AA  =  15.0  ! attachment  angle  -  angle  at  which  flow  transition  to  MOC  wall 

AE  =6.259  !exit  angle 

XE  =  2.000  !exit  location 


Set  Nozzle  Solution 


IVL 

EMD 

NOZ 

I_FINAL 
BL  SCALE 


1  ! 0  transonic  start,  1  User  defined  input  from  "Profile.dat" 

13.25  ! design  exit  mach  number 

0  ! 1  nozzle  shape  inputted,  0  nozzle  shape  from  MOC 

351  ! number  of  points  on  final  chara  line 

2.1  ! boundary  layer  scalar 
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STARTING  NOZZLE  FLOWING  ITIONS 
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APPENDIX  F 
EXAMPLE  5 


Example  5  is  set  up  to  model  a  planar  nozzle.  The  code  will  calculate  a  transonic  start  line 
based  on  input  conditions.  The  nozzle  wall  is  initially  defined  with  a  circular  arc,  then  a  second- 
order  quadratic,  and  then  a  calculated  inviscid  wall.  The  flowfield  calculation  is  stopped  when 
the  design  Mach  number  on  the  centerline  is  reached.  Data  smoothing  is  on.  This  case  is 
designed  to  emphasize  how  the  inviscid  wall  cancels  out  the  strong  wave  in  the  flowfield  and  to 
show  that  planar  nozzles  have  large  exit  radii.  The  user  should  take  note  of  the  variables 
highlighted  in  red.  Plots  of  the  Mach  number  and  flow  angle  are  included. 


&INPUT 


.  .  .  Set  Tolerances 


ICOR 

= 

30 

El 

= 

1.0E-06 

E2 

= 

1.0E-06 

E3 

= 

1.0E-06 

E4 

= 

1.0E-06 

E5 

= 

1.0E-06 

. . .  Set  Control  values 


predictor  corrector  term 
m  X  space  error 
Pressure  error 
Density  error 
Velocity  error 
flow  angle  error 


DELTA  =  0.0 
NI  =  21 

NT  =  11 

KWRITE  =  1 
I UNITS  =  2 
SMOOTH  =  . TRUE . 
ST  =1.0 

IORDER  =35 


11  axi,  0  planer  (Mass  flux  not  working  correctly) 
! NUMBER  OF  RADIAL  POINTS  ON  INFLOW  PLANE  (Max  99) 

! NUMBER  OF  CIRULAR  ARC  POINTS  (Should  =  AA) 


! EVENLY  SPACE  OUT  THE  DATA  AFTER  EACH  SECTION 
! 0 . 0  Even  space  start  line,  1.0  quadratic  spaced 


. . .  Set  Gas  Properties 


PS 

= 

1600  . 

000E+06  !gas  pressure 

TS 

= 

1 . 000000E+03  !gas  temperature 

PA 

= 

0.0 

! ambient  pressure 

G 

= 

1.4 

!  gamma 

RG 

= 

287.040  ! J/KG-K 

GC 

= 

1.0 

! M-KG/N- S^2 

GL 

= 

1.0 

!M^2/M^2 

Set  Nozzle  Properties 

YT 

- 

1.000 

Inozzle  radius 

RTU 

= 

2.000 

! radius  of  curve  upstream  of  throat 

RTD 

= 

0.500 

! radius  of  curve  downstream  of  throat 

AA 

= 

15.0 

! attachment  angle 

AE 

= 

15.0 

!exit  angle 

XE 

= 

20.0 

!exit  location 

. . .  Set  Nozzle  Solution 


IVL 

= 

0 

EMD 

= 

3.0 

NOZ 

= 

0 

I  FINAL 

= 

101 

BL  SCALE 

= 

2.1 

!0  transonic  start,  1  User  defined  input 
! design  mach  number 

11  nozzle  shape  inputted,  0  nozzle  shape  from  MOC 
! number  of  points  on  final  chara  line 
! boundary  layer  scalar 


F-l 


F-2 


APPENDIX  G 
ERROR  MESSAGES 


1 .  Error  Code:  “STOPPING  CODE:  RESET  Nil  TO  XXX” 

The  variable  Nil  in  file  “MOC.PAR”  needs  to  be  reset  to  XXX.  This  error 
normal  occurs  if  the  variable  ‘I  FINAL’  in  name  list  $INPUT  is  set  too  large. 

(Source  code:  FINALCHARLINE.f  and  NOZZLE.f) 

2.  Error  Code:  “Cannot  find  namelist  &INPUT  in  file  “NOZZLE. inp”” 

The  namelist  &INPUT  was  not  found  in  the  input  file.  Make  sure  that  the  “&” 
starts  in  the  second  column.  (Source  code:  READ_NAMLIST.f) 

3.  Error  Code:  “THE  RATIO  OF  RTU/YT  IS  INVALID  FOR  SAUERS  METHOD!” 

The  user  input  values  of  RTU  and  YT  are  invalid  for  the  code  to  predict  a  start 
line  profile.  The  user  must  increase  the  ratio  RTU/YT  to  be  greater  than  1.0.  Ideally  this 
ratio  should  be  greater  than  2.0.  For  values  greater  than  1  but  less  than  2,  the  code  will 
print  out  a  warning  message  that  the  ratio  is  only  marginally  acceptable.  This  is  a 
limitation  of  the  use  of  Sauers  method1,2  for  the  prediction  of  the  start  line  profile. 

(Source  code:  IVLINE.f) 

4.  Error  Code:  “File  Profile.dat  does  not  exist.” 

The  user  has  set  the  variable  “IVL”  to  1  in  the  namelist  there  by  requesting  an 
inputted  start  line  profile.  The  file  that  contains  the  start  line,  “Profile.dat,”  could  not  be 
found  within  the  working  directory.  (Source  code:  IVSTART.f) 

5.  Error  Code:  “Stopping  the  code:  Variable  Nil  needs  to  be  increased.” 

The  variable  Nil  in  file  “MOC.PAR”  needs  to  be  increased  to  a  larger  value. 
(Source  code:  SECOND  ORDER  WALL  FLOWIELD.f) 

6.  Error  Code:  “ERROR:  CAN  NOT  DECODE  FLOW  ANGLE!” 

This  error  is  common  when  the  input  resolution  is  not  sufficient  to  resolve  the 
flowfield.  To  fix  this,  the  user  can  increase  the  variable  “NI”  in  the  input  file.  If  this  error 
still  remains,  the  user  can  turn  on  flow  smoothing  by  setting  the  logical  variable 
“SMOOTH”  to  TRUE.  (Source  code:  INTERIOR  POINT.f  and  TURNING.f) 

7.  Error  Code:  “Stopping  the  code:  Reached  the  ICOR  user  set  limit!” 

This  error  occurs  if  the  variable  “ICOR”  is  set  too  low  or  one  of  the  error  terms 
“El”  through  “E5,”  is  set  too  high  for  the  local  flow  conditions.  In  general,  the  variable 
“ICOR”  should  be  set  to  30  and  the  individual  error  terms  should  be  lowered. 

(Source  code:  TURNING.f) 
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APPENDIX  H 
FORTRAN  90  CODE 


PROGRAM  MOC 


C 


C*  * 
C*  TERMINOLOGY  FOR  SUPERSONIC  FLOW  METHOD  OF  CHARACTERISTICS  * 
C*  * 
C*  CONTROL  VARIABLE:  * 

C*  -  * 

C*  * 
C*  DELTA  =  'O'  FOR  PLANER  FLOW  * 
C*  =  '1'  AXISYMMETRIC  FLOW  * 
C*  ICOR  =  NUMBER  OF  APPLICATIONS  OF  THE  CORRECTOR  DESIRED  * 
C*  El  =  CONVERGENCE  TOLERANCE  FOR  LOCATION,  M  (IN)  * 
C*  E2  =  CONVERGENCE  TOLERANCE  FOR  VELOCITY,  M/S  (FT/SEC)  * 
C*  GC  =1.0  M-KG/N- S^2  OR  32.174  FT-LBM/LBF- S^2  * 
C*  GL  =1.0  M^2/M^2  OR  144.0  IN^2/FT^2  * 
C*  ST  =0.0  EVEN  SPACE  STARTLINE,  1.0  QUADRATIC  SPACED  * 
C*  * 
C*  GAS  THERMODYNAMIC  PROPERTIES  &  STAGNATION  PROPERTIES:  * 

C*  -  * 

c*  * 

C*  G  =  RATIO  OF  SPECIFIC  HEATS  * 
C*  RG  =  GAS  CONSTANT,  J/KG-K  (FT-LBF/LBM-R)  * 
C*  TS  =  STAGNATION  TEMPERATURE,  K  (R)  * 
C*  PS  =  STAGNATION  PRESSURE,  N/M^2  (LBF/IN^2)  * 
C*  PA  =  AMBIENT  PRESSURE,  N/M^2  (LBF/IN^2)  * 
C*  * 
C*  FLOW  FIELD  PROPERTIES:  * 
C*  -  * 

c*  * 

C*  X  =  AXIAL  COORDINATE,  M  (IN)  * 
C*  Y  =  RADIAL  COORDINATE,  M  (IN)  * 
C*  U  =  AXIAL  VELOCITY,  M/S  (FT/S)  * 
C*  V  =  RADIAL  VELOCITY,  M/S  (FT/S)  * 
C*  Q  =  VELOCITY  MAGNITUDE,  M/W  (FT/S)  * 
C*  A  =  FLOW  ANGLE,  RAD  * 
C*  P  =  STATIC  PRESSURE,  N/M^2  (LBF/IN^2)  * 
C*  R  =  STATIC  DENSITY,  KG/M^3  (LBM/FT^3 )  * 
C*  T  =  STATIC  TEMPERATURE,  K  (R)  * 
C*  C  =  SPEED  OF  SOUND,  M/S  (FT/S)  * 
C*  M  =  MACH  NUMBER  * 
C*  EMD  =  DESIGN  MACH  NUMBER  * 
C*  1,2,3,  =  DENOTES  PROPERTIES  AT  POINTS  * 
C*  * 
C*  TERMINOLOGY  EMPLOYED:  * 

C*  -  * 

C*  * 
C*  L  =  TAN (THETA+ -ALPHA)  * 
C*  Q  =  (U^2 - C^2 ) ,  M^2/S^2  (FT^2/S^2)  * 
C*  R  =  2UV-L (U^2 -C^2 )  M"2/S"2  (FT^2/S^2)  * 
C*  S  =  DELTA*C^2*V/Y,  M^2/S^3  (FT^2/SEC^3 - IN)  * 
C*  T  =  S*DEL (X) +Q*U+R*V,  M^3/S^3  (FT^3/S^3)  * 
C*  +/-  =  DENOTES  +  OR  -  CHARACTERISTIC  CURVE  * 
C*  * 


C* ********************************************************************** 

c 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 
C 

C* ********************************************************************* 
c**  ** 

C**  Function  Statements  ** 

C**  ** 

C* ********************************************************************* 

C 

TM (B)  =  B  /  TZERO 

ZMUIFD(B)  =  ZMZERO*TM (B) **1.5* ( (1. +CONSU) / (TM (B) +CONSU) ) 

RE  (B)  =  R  (1)  *  Q  (1)  *  X(l)  /  ZMUIFD(B) 

BL (B)  =  RE (B) **  (1./8  .  ) 

C 

C* ********************************************************************* 
C**  ** 

C**  OUTPUT  THE  HEADER  STATEMENTS  ** 

C**  ** 

c* ********************************************************************* 

c 
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PRINT* , 


PRINT*, 

i  C* 

PRINT*, 

i  C* 

PRINT*, 

■  c* 

PRINT*, 

■  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  c* 

PRINT*, 

1  I 

##  ##  #####  ##### 

##  ###  ##  # 

#  #  #  #  #  #  # 

#  #  #  #  #  # 

#  #  #  #  # 

#  #  #  #  #  # 

#  #  #####  ##### 

METHOD  OF  CHARACTERISTICS 
(VERSION  1.0) 

MODIFICATION  DATE:  24  FEBUARY  2012 

WRITTEN  BY:  K.  D.  KENNEDY 
ODYNAMICS  TECHNOLOGY  BRANCH  (RMMR-SSM-2 
US  ARMY  AVIATION  &  MISSILE  COMMAND 
REDSTONE  ARSENAL,  ALABAMA  35898-5252 


BY:  M  ZUCROW  AND  J  HOFFMAN 


*  i 

*  i 


*  i 

*  i 


*  i 

*  i 


*  i 

*  i 


*  i 

*  i 


*  i 

*  i 


*  i 

*  i 


C*  ********************************************************************** 

c*  * 

C*  OPEN  THE  INPUT  AND  OUTPUT  FILES  * 

C*  * 

C*  ********************************************************************** 

C 

OPEN (UNIT  =  2  ,  FILE  =  ' NOZZLE . inp 1 ,  FORM= 1  FORMATTED  1 ) 

OPEN (UNIT  =  3  ,  FILE  =  'WALL.dat',  FORM  =  'FORMATTED') 

OPEN (UNIT  =  4  ,  FILE  =  'CENTERLINE.dat',  FORM  =  'FORMATTED') 

OPEN (UNIT  =32  ,  FILE  =  'WALL_BOUNDARY_CORRECTED.dat',  FORM  =  'FORMATTED') 

C 

C*  ********************************************************************** 

c*  * 

C*  READ  IN  THE  NAMELIST  INPUT  * 

C*  * 

c*  ********************************************************************** 

c 

CALL  RE AD_NAME LIST 
C 

C*  ********************************************************************** 

C*  * 

C*  DEFINE  THE  NOZZLE  WALL  BOUNDARY  * 

C*  * 

c*  ********************************************************************** 

c 

CALL  BOUNDARY (1) 

C 

C*  ********************************************************************** 

C*  * 

C*  GENERATE  THE  INITIAL  VALUE  LINE  * 

C*  * 

C*  ********************************************************************** 

C 

IF (IVL.EQ. 0) THEN 

CALL  IVLINE 
C 

C*  ********************************************************************** 

C*  * 

C*  READ  IN  THE  INITIAL  START  LINE  * 

C*  * 

c*  ********************************************************************* * 

c 

ELSE 

CALL  IVSTART 
END  IF 


C*  ********************************************************************** 

C*  * 
C*  CALCULATE  THE  FLOW  FIELD  FROM  THE  INITIAL  VALUE  LINE  * 
C*  * 
c*  ********************************************************************* * 
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c 

CALL  IVLFLOWFIELD 
C 

C*  ********************************************************************** 


C*  * 

C*  DETERMINE  IF  THE  STARTING  SOLUTION  REQUIRES  THE  CIRCULAR  ARC  * 

C*  WALL  OR  THE  2ND  ORDER  WALL  * 

C*  * 


C* ********************************************************************** 

C 

IF ( IVL . EQ . 1  .AND.  V (1) .NE . 0 . 0) THEN 

AA  =  ATAN (V (1) /U (1) ) *RAD 
RTD  =  0.0 
WRITE  (6, *)  1  1 

WRITE ( 6  ,  * ) 1  RESETTING  ATTACHMENT  ANGLE  (AA)  TO  =  '  ,AA 

WRITE ( 6  ,  * ) 1  RESETTING  DOWNSTREAM  RADIUS  (RTD)  TO  =  1 , RTD 
EXITEND  =  . FALSE . 

DESIGNEDM  =  .FALSE. 

ELSE 

C 

C* ********************************************************************** 

C*  * 

C*  CALCULATE  THE  FLOW  FIELD  FROM  THE  CIRCULAR  ARC  THROAT  CONTOUR  * 

C*  * 

C* ********************************************************************** 

C 

CALL  C I RCULARFLOWF I ELD 

END  IF 
C 

C* ********************************************************************** 

c*  * 

C*  CALCULATE  THE  FLOW  FIELD  FROM  THE  SECOND  ORDER  QUADRATIC  WALL  * 

C*  * 

c* ********************************************************************** 

c 

IF ( . NOT . EXIT_END  .AND.  . NOT . DESIGNED_M) THEN 
CALL  SECOND  ORDER  WALL  FLOWFIELD 


END  IF 
C 

C* ********************************************************************** 

c*  * 

C*  FINAL  C+  CHARACTERISTIC  LINE  CALCULATION  * 

C*  * 

c* ********************************************************************** 

c 

IF ( . NOT . EXIT_END  . AND .  DESIGNEDM) THEN 

CALL  FINALCHARLINE 

END  IF 
C 

C* ********************************************************************** 

c*  * 

C*  TURNING  CONTOUR  REGION  * 

C*  * 

c* ********************************************************************** 

c 

IF ( . NOT . EXIT_END  . AND .  DESIGNEDM) THEN 
CALL  TURNING  CONTOUR 


END  IF 
C 

C* ********************************************************************** 

c*  * 

c*  OUTPUT  THE  SLOPE  FILE  FOR  VIEWING  * 

C*  * 

c* ********************************************************************** 

c 

REWIND (3) 

IC  =  0 


READ ( 3  ,  * ) nmlname 
DO  II  =  1  ,  10000 
READ ( 3 , * , END =6 0 1 ) nmlname 
IC  =  IC  +  1 
ENDDO 
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601  WRITE  ( 6  ,  * )  1  ' 

WRITE (6,*)'  WALL  FILE  IN:  WALL.dat,  AND  HAS  ',10,'  POINTS' 

IF (IC.GT.NII) THEN 

WRITE ( 6 ,  * ) 1  Stopping  code.  Redimension  Nil  to  ',10 
STOP 
END  IF 

OPEN (UNIT  =  22  ,  FILE  =  'SL0PE.dat',  FORM  =  'FORMATTED') 

REWIND (3) 

READ ( 3  ,  * ) nmlname 
SLOPE  =  0.0 
X3  =0.0 
DO  II  =  1  ,  IC 
READ (3,*) I4/J4/X4/Y4 
WALLX(II)  =  X4 
WALL_Y (II)  =  Y4 
IF (II . NE . 1 ) THEN 
SLOPE  =  (Y4-Y3) / (X4-X3) 

WRITE (22 , *) X3 , SLOPE 
END  IF 
X3  =  X4 
Y3  =  Y4 
ENDDO 

WRITE (22 , *) X4 , SLOPE 
CLOSE  (22) 

WRITE (6,*)'  ' 

WRITE (6,*)'  WALL  SLOPE  FILE  IN:  SLOPE.dat' 

C 

C* ********************************************************************** 

C*  * 

C*  MAKE  NEW  WALL  FILE  -  SMOOTHING  * 

C*  * 

C* ********************************************************************** 

C 

IF (NOZ . NE . 1) THEN 

OPEN (UNIT=3 3, FILE= 'WALL_SMOOTHED.dat ' , FORM= ' FORMATTED ' ) 

CALL  LEASTSQRFIT ( WALLX , WALLY , I C , I ORDER , WALLRC ) 

DO  II  =  1  ,  IC 

WRITE (33  ,  * ) WALLX (II), WALLRC (II) 

ENDDO 
CLOSE (33) 

WRITE  (6, *)  '  ' 

WRITE  (6,*)'  SMOOTHED  WALL  FILE  IN:  WALL_SMOOTHED.dat' 

OPEN (UNIT  =22  ,  FILE  =  'SLOPE_SMOOTHED.dat',  FORM  =  'FORMATTED') 
SLOPE  =0.0 
DO  II  =  1  ,  IC 
X4  =  WALL_X ( II ) 

Y4  =  WALL_RC (II) 

IF (II . NE . 1 ) THEN 
SLOPE  =  (Y4-Y3) / (X4-X3) 

WRITE (22 , *) X3 , SLOPE 
END  IF 
X3  =  X4 
Y3  =  Y4 
ENDDO 

WRITE (22 , *) X4 , SLOPE 


CLOSE (22) 

C 

C* ********************************************************************** 

C*  * 

C*  MAKE  NEW  WALL  BL  FILE  -  SMOOTHING  * 

C*  * 

C* ********************************************************************** 

C 

ICC=  0 

OPEN (UNIT=33 , FILE= ' WALLBOUNDARYCORRECTEDSMOOTHED . dat ' , FORM= ■ FORMATTED ' ) 
REWIND (32) 

DO  II  =  1  ,  IC 

READ (32,231, END=232 ) WALLX (II) ,WALL_Y(II) 

ICC  =  ICC  +  1 

231  FORMAT (T11,E12 .4,T83,E12 .4) 

ENDDO 
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232  CALL  LEASTSQRFIT (WALLX, WALLY, ICC, IORDER, WALLRC) 
write (6 , *)  1  1 

DO  II  =  1  ,  ICC 

WRITE  ( 3 3 , * ) WALLX (II), WALLRC (II) 

ENDDO 
CLOSE (33) 

WRITE  ( 6  ,  * )  1  ' 

WRITE (6 , *) '  WALL  BOUNDARY  LAYER  CORRECTED  FILE  IN:  WALL_BOUNDARY_CORRECTED_SMOOTHED.dat' 

END  IF 
C 

C* ********************************************************************** 

c*  * 

C*  MAKE  GNU  PLOT  FOR  VIEWING  DATA  * 

C*  * 

c* ********************************************************************** 

c 

WRITE (6, *) 1  1 

OPEN (UNIT=55 , FILE= 1 X_Y_FUN . dem 1 , FORM= ' FORMATTED '  ) 

WRITE  (55, 500) 

500  FORMAT ( 1 #  GNUPLOT  v3 . 6  beta  multiplot  script  file1,/, 

> 1  set  terminal  pdf  enhanced  color  font  "Helvetica"  fsize  8  size  10.5  in,  8.0  in1,/, 

> 1  set  output  "X_Y_FUN.pdf "' ,/, 

>'set  key  left  top  box',/, 

> 1  set  border ■  ,  /  , 

> 1  set  grid ■  ,  / , 

>'set  style  line  1  It  rgb  "black"  lw  1  pt  1  ps  1',/, 

> 1  set  style  line  2  It  rgb  "red"  lw  1  pt  2  ps  1',/, 

>'set  style  line  3  It  rgb  "green"  lw  1  pt  3  ps  1',/, 

>'set  style  line  4  It  rgb  "blue"  lw  1  pt  4  ps  1',/, 

> 1  set  style  line  5  It  rgb  "orange"  lw  1  pt  5  ps  1',/, 

>'set  style  line  6  It  rgb  "yellow"  lw  1  pt  6  ps  1',/, 

>'set  style  line  7  It  rgb  "magenta"  lw  1  pt  7  ps  1',/, 

> 1  show  terminal  ',/, 

> 1  set  title  "MOC  Nozzle"',/, 

>'set  xlabel  "Axial  Length"',/, 

>'set  ylabel  "Radial  Length"',/, 

> ' set  palette  defined  (0000,  1001,  3010,  4100,  6111)',/, 

>'set  hidden3d') 

IF (IVL.EQ. 0) THEN 
WRITE (55,501) 

501  FORMAT ("plot  [:]  [:]  \",/, 

>"'fort.l3'  every  ::0  using  3:4  with  linespoints  title  'START  LINE'  Is  7,  \",/, 

>"'fort.7'  every  ::0  using  3:4  with  linespoints  title  'INITIAL  VALUE  FLOW'  Is  1,  \",/, 

>" ' fort . 8 '  every  ::0  using  3:4  with  linespoints  title  'CIRCULAR  ARC  FLOW'  Is  2,  \",/, 

>" ' fort . 9 '  every  ::0  using  3:4  with  linespoints  title  '2ND  ORDER  QUADRATIC  FLOW'  Is  3,  \",/, 

>"'fort.l0'  every  ::0  using  3:4  with  linespoints  title  'FINAL  C+  CHARACTERISTIC  LINE'  Is  4, 

V',/, 

>" 'fort. 11'  every  ::0  using  3:4  with  linespoints  title  'TURNING  REGION'  Is  5,  \",/, 

>" 'WALL.dat'  every  ::0  using  3:4  with  linespoints  title  ' INVISCID  FLOW  BOUNDARY'  Is  6") 

ELSE 

WRITE (55, 5011) 

5011  FORMAT ("plot  [:]  [:]  \",/, 

>" ' fort . 7 '  every  ::0  using  3:4  with  linespoints  title  'INITIAL  VALUE  LINE'  Is  1,  \",/, 

>" ' fort . 9 '  every  ::0  using  3:4  with  linespoints  title  '2ND  ORDER  QUADRATIC  WALL'  Is  3,  \",/, 

>"'fort.l0'  every  ::0  using  3:4  with  linespoints  title  'FINAL  C+  CHARACTERISTIC  LINE'  Is  4, 

V',/, 

>" 'fort. 11'  every  ::0  using  3:4  with  linespoints  title  'TURNING  REGION'  Is  5,  \",/, 

>" 'WALL.dat'  every  ::0  using  3:4  with  linespoints  title  'INVISCID  FLOW  BOUNDARY'  Is  6") 

END  IF 

IF (IVL.EQ. 0) THEN 
WRITE (55, 502) 

502  FORMAT ("plot  [:]  [:]  \",/, 

>" ' fort . 7 '  every  ::0  using  3:4  with  lines  title  'INITIAL  VALUE  LINE'  Is  1,  \",/, 

>" ' fort . 8 '  every  ::0  using  3:4  with  lines  title  'CIRCULAR  ARC  THROAT'  Is  2,  \",/, 

>" ' fort . 9 '  every  ::0  using  3:4  with  lines  title  '2ND  ORDER  QUADRATIC  WALL'  Is  3,  \",/, 

>" ' fort . 10 '  every  ::0  using  3:4  with  lines  title  'FINAL  C+  CHARACTERISTIC  LINE'  Is  4,  \",/, 

>" 'fort. 11'  every  ::0  using  3:4  with  lines  title  'TURNING  REGION'  Is  5,  \",/, 

> " ' WALL . dat '  every  ::0  using  3:4  with  lines  title  'INVISCID  FLOW  BOUNDARY'  Is  6") 

ELSE 

WRITE (55, 5021) 

5021  FORMAT ("plot  [:]  [:]  \",/, 

>" ' fort . 7 '  every  ::0  using  3:4  with  lines  title  'INITIAL  VALUE  LINE'  Is  1,  \",/, 

>" ' fort . 9 '  every  ::0  using  3:4  with  lines  title  '2ND  ORDER  QUADRATIC  WALL'  Is  3,  \",/, 

>" ' fort . 10 '  every  ::0  using  3:4  with  lines  title  'FINAL  C+  CHARACTERISTIC  LINE'  Is  4,  \",/, 

>"'fort.ll"  every  ::0  using  3:4  with  lines  title  'TURNING  REGION'  Is  5,  \",/, 

> " ' WALL . dat '  every  ::0  using  3:4  with  lines  title  'INVISCID  FLOW  BOUNDARY'  Is  6") 

END  IF 
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[:]  [:]  V\/, 


IF (IVL.EQ. 0) THEN 
WRITE (55,503) 

503  FORMAT ( "set  pm3d  map",/, 'set  title  "Mach  Number" 1 ,/, "splot  [:] 

>" 'fort. 7'  every  ::0  using  3:4:7  notitle  Is  1,  \" ,/, 

>" 'fort. 8'  every  ::0  using  3:4:7  notitle  Is  2,  \" ,/, 

>" 'fort. 9'  every  ::0  using  3:4:7  notitle  Is  3,  \" ,/, 

>" 'fort. 11'  every  ::0  using  3:4:7  notitle  Is  5") 

ELSE 

WRITE (55,5031) 

5031  FORMAT ( " set  pm3d  map" , / ,  1  set  title  "Mach  Number" ',/, "splot  [:]  [:]  [:]  \",/, 

>" 'fort. 7'  every  ::0  using  3:4:7  notitle  Is  1,  \" ,/, 

>" 'fort. 9'  every  ::0  using  3:4:7  notitle  Is  3,  \" ,/, 

>" 'fort. 11'  every  ::0  using  3:4:7  notitle  Is  5") 

END  IF 

IF (IVL.EQ. 0) THEN 
WRITE (55, 504) 

504  FORMAT ("set  pm3d  map" ,/,'set  title  "Axial  Velocity" 1 ,/, "splot  [:]  [:]  [:]  \" ,/, 

>" 'fort. 7'  every  ::0  using  3:4:5  notitle  Is  1,  \",/, 

>"'fort.8'  every  ::0  using  3:4:5  notitle  Is  2,  \",/, 

>"'fort.9'  every  ::0  using  3:4:5  notitle  Is  3,  \",/, 

>"'fort.ll'  every  ::0  using  3:4:5  notitle  Is  5") 

ELSE 

WRITE (55,5041) 

5041  FORMAT ( " set  pm3d  map" , / , ■ set  title  "Axial  Velocity" ',/, "splot  [:]  [:]  [:]  \",/, 

>"'fort.7'  every  ::0  using  3:4:5  notitle  Is  1,  \",/, 

>"'fort.9'  every  ::0  using  3:4:5  notitle  Is  3,  \",/, 

>"'fort.ll'  every  ::0  using  3:4:5  notitle  Is  5") 

END  IF 

IF (IVL.EQ. 0) THEN 
WRITE (55, 505) 

505  FORMAT ("set  pm3d  map",/, 'set  title  "Radial  Velocity" ',/, "splot  [:]  [:]  [:]  \",/, 

>"'fort.7"  every  ::0  using  3:4:6  notitle  Is  1,  \",/, 

>"'fort.8'  every  ::0  using  3:4:6  notitle  Is  2,  \",/, 

>"'fort.9'  every  ::0  using  3:4:6  notitle  Is  3,  \",/, 

>"'fort.ll'  every  ::0  using  3:4:6  notitle  Is  5") 

ELSE 

WRITE (55,5051) 

5051  FORMAT ( " set  pm3d  map" , / , ■ set  title  "Radial  Velocity" ',/, "splot  [:]  [:]  [:]  \",/, 

>"'fort.7'  every  ::0  using  3:4:6  notitle  Is  1,  \",/, 

>"'fort.9'  every  ::0  using  3:4:6  notitle  Is  3,  \",/, 

>"'fort.ll'  every  ::0  using  3:4:6  notitle  Is  5") 

END  IF 

IF (IVL.EQ. 0) THEN 
WRITE (55, 506) 

506  FORMAT ("set  pm3d  map",/, 

> ' set  title  "Flow  Angle" ',/, "splot  [:]  [:]  [:]  \",/, 

>"'fort.7'  every  ::0  using  3:4:9  notitle  Is  1,  \",/, 

>"'fort.8'  every  ::0  using  3:4:9  notitle  Is  2,  \",/, 

>"'fort.9'  every  ::0  using  3:4:9  notitle  Is  3,  \",/, 

>"'fort.ll'  every  ::0  using  3:4:9  notitle  Is  5") 

ELSE 

WRITE (55, 5061) 

5061  FORMAT ("set  pm3d  map",/, 

>'set  title  "Flow  Angle" ',/," splot  [:]  [:]  [:]  \",/, 

>"'fort.7'  every  ::0  using  3:4:9  notitle  Is  1,  \",/, 

>"'fort.9'  every  ::0  using  3:4:9  notitle  Is  3,  \",/, 

>" 'fort. 11'  every  ::0  using  3:4:9  notitle  Is  5") 

END  IF 

IF (NOZ . EQ . 1) THEN 
WRITE (55, 507) 

507  FORMAT ('set  title  "Wall  Prof ile" ',/, "plot  [:]  [:]  \",/, 

>" 'WALL.dat'  every  ::0  using  3:4  with  lines  title  'Wall'  Is  1,  \",/, 

>" 'WALL_BOUNDARY_CORRECTED.dat '  every  ::0  using  3:9  with  lines  title  'Wall  w/BL  Correction 
Is  3") 

ELSE 

WRITE (55, 5071) 

5071  FORMAT ('set  title  "Wall  Prof ile" ',/, "plot  [:]  [:]  \",/, 

>" 'WALL.dat'  every  ::0  using  3:4  with  lines  title  'Wall'  Is  1,  \",/, 

>" 'WALL_SMOOTHED.dat '  every  ::0  using  1:2  with  lines  title  'Wall  -  Smoothed'  Is  2,  \",/, 

>" 'WALL_BOUNDARY_CORRECTED.dat '  every  ::0  using  3:9  with  lines  title  'Wall  w/BL  Correction 
Is  3,  \",/, 

>" 'WALL_BOUNDARY_CORRECTED_SMOOTHED.dat '  every  ::0  using  1:2  with  lines  title  'Wall  w/BL 
Correction  -  Smoothed'  Is  4") 

END  IF 

IF (NOZ . NE . 1) THEN 
WRITE (55,508) 
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non  non  noon 


508  FORMAT ('set  ylabel  "Surface  Slope  (Degrees) " 1  set  title  "Wall  Surface  Slope"',/, 

>  "  p  1  o  t  [:]  [:]  \",/, 

>" 1  SLOPE . dat 1  every  ::0  using  ($1)  :  (atan ($2) /pi*180 . )  with  linespoints  title  'Wall  Slope1  Is 

1, 

>"' SLOPE_SMOOTHED.dat '  every  ::0  using  ($1) : (atan ($2) /pi*180 . )  with  linespoints  title  'Wall 
Slope  -  Smoothed1  Is  2") 

END  IF 


WRITE  (6, *)  1  1 

WRITE ( 6  ,  * ) 1  Writing  gnuplot  X_Y_FUN.dem' 

WRITE  (6, *)  '  ' 

WRITE ( 6  ,  * ) 1  Type:  gnuplot  X_Y_FUN.dem  ;  open  X_Y_FUN.pdf 
STOP 
C 

C* ********************************************************************** 

c*  * 

C*  END  OF  LINE  * 

C*  * 


c* ********************************************************************** 

c 

END 

SUBROUTINE  AXIS 


C.  . 
C.  . 
C.  . 
C.  . 


c. 

.  . 

The 

C- 

characteristic 

goes 

through 

points 

1 

and 

4 

c. 

.  . 

The 

C+ 

characteristic 

goes 

through 

points 

3 

and 

1 

c. 

The 

streamline 

goes 

through 

points 

3 

and 

4 

C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 


Points  1  and  3  are  known 
Point  4  is  located  on  the  axis 
Point  3  is  located  on  the  axis 


1 

* 

*  * 


C+ 


Solution  Point  3*  AXIS  *4  Solution  Point 


.  .  .  CALCULATE  THE  SOLUTION  AT  AN  AXIS  OF  SYMMETRY  POINT 

POINTS  1  AND  3  ARE  KNOWN,  SOLVE  FOR  POINT  4  ALONG  AXIS  USING  CHARA- 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 

.  .  .  CALCULATE  THE  COEFFICIENTS  FOR  THE  PREDICTOR 

ITER  =  0 

Q4  =  Q3 
P4  =  P3 
R4  =  R3 

CALL  THERMO  (Q1 , PI , R1 , T , C , M) 

LM  =  TAN (Al-ASIN (1 . /M) ) 

QM  =  GC*SQRT (M**2 -1 . ) / (R1*Q1**2) 

SM  =  DELTA*SIN(A1) / (Yl*M*COS (Al-ASIN (l./M) ) ) 

A4  =  0.0  ! KNOWN 

Y4  =  0.0  ! KNOWN 


. . .  SOLUTION 


10  X4 


X1-Y1/LM 


TM  =  -SM* (X4-X1) +QM*P1-A1 


P0  =  0 . 5*  (P3+P4) 
R8  =  0 . 5* (R3+R4) 
Q0  =  0 . 5* (Q3+Q4) 
R0  =  R8*Q0/GC 


CALL  THERMO  (Q0 , P0 , R8 , T, C, M) 

A0  =  C**2/GC 
T01  =  R0*Q3+P3 
T02  =  P3-A0*R3 


P4  =  (TM-A4) /QM 
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non  oooooooooooooooooooooooo  non  oooooooooon 


Q4  =  (T01-P4) /RO 
R4  =  (P4-T02)/A0 

TEST  FOR  CONVERGENCE 


WRITE ( 6 , * ) 1  ' 

WRITE (6, 100) '  RO 
WRITE (6, 100) 1  AO 
WRITE (6, 100) '  T01 
WRITE (6, 100) '  T02 
WRITE (6, 100) 1  Q- 
WRITE (6, 100) '  S- 
WRITE (6, 100) '  T- 
100  FORMAT (A, 1P2E15 . 5) 


'  ,  R0 
'  ,  A0 
'  ,  T01 
'  ,  T02 
'  /  QM 
'  ,  SM 
'  ,  TM 


IF ( ITER . EQ . I COR)  RETURN 
IF (ITER.EQ. 0)  GOTO  20 


IF ( (ABS (X4-XD) .GT.E1)  .OR.  (ABS (Q4-QD) .GT.E4*QD) ) 

IF ( (ABS (P4-PD) .GT.E2*PD)  .AND.  (ABS (R4 -RD) . GT . E3*RD) ) 

.  .  .  CALCULATE  THE  COEFFICIENTS  FOR  THE  CORRECTOR 

20  ITER  =  ITER  +  1 


XD  =  X4 
PD  =  P4 
RD  =  R4 
QD  =  Q4 

P0  =  0.5*  (P1  +  P4 ) 

R0  =  0.5* (R1+R4 ) 

Q0  =  0.5*  (Q1+Q4 ) 

A0  =  0.5* (A1+A4 ) 

Y0  =  0.5* ( Y1+Y4 ) 

CALL  THERMO  (Q0 , P0 , R0 , T , C , M) 

LM  =  TAN (A0 -AS IN (1.0/M)) 

SM  =  DELTA*SIN (A0) / (Y0*M*COS (A0 -ASIN (1 . 0/M) ) ) 
QM  =  GC*SQRT (M**2 - 1 . 0 ) / (R0*Q0**2) 

GOTO  10 


END 

SUBROUTINE  INVERSE  WALL  POINT 


Points  1  and  3  are  known 

Point  4  is  located  on  the  wall 

Point  3  is  located  on  the  wall 

Point  2  is  located  between  points  1  and  3 

The  C-  characteristic  goes  through  points  1  and  3 

The  C+  characteristic  goes  through  points  2  and  4 

The  streamline  goes  through  points  3  and  4 


WALL  ## 

##  *4 
##  * 

##  * 

.  .  .  ##  *  C+ 

.  .  .  3*  * 

*  * 


## 


C-  *  * 

2* 

* 

*  1 


Calculate  the  solution  at  an  inverse  wall  point 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 

CALCULATE  THE  COEFFICIENTS  FOR  THE  PREDICTOR 
ITER  =  0 

LM  =  (Y3-Y1) / (X3-X1) 
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GOTO  20 
RETURN 


non  *  non 


P4  =  0.5*  (P1+P3 ) 

R4  =  0.5*  (R1+R3 ) 

Q4  =  0.5*  (Q1+Q3 ) 

XA  =  X3 

P2  =  P4 
R2  =  R4 
Q2  =  Q4 

A2  =  0.5* (A1+A3 ) 

.  .  .  DETERMINE  THE  LOCATION  AND  PROPERTIES  OF  POINT  2 


10  Q0 
A0 
P0 
R8 


0.5* (Q2+Q4) 
0 . 5* (A2+A4) 
0.5* (P2+P4) 
0.5* (R2+R4) 


CALL  THERMO  (Q0 , P0 , R8 , T , C , M) 

LP  =  TAN (A0+ASIN (1 . /M) ) 

X2  =  (Y4-Yl+lm*xl-lp*x4) / (lm-lp) 
Y2  =  Y4+LP* (X2-X4) 

D  =  (X2-X1) / (X3-X1) 

Q2  =  Ql+D* (Q3-Q1) 

A2  =  Al+D* (A3 -Al) 

P2  =  Pl+D* (P3 -PI) 

R2  =  Rl+D* (R3-R1) 


IF (ITER. EQ. 0) GOTO  15 


P4  =  P2 
R4  =  R2 
Q4  =  Q2 


15  IF (ABS (X2-XA) . LT . ERROR)  GOTO  20 


XA  =  X2 


GOTO  10 

*********************************************** 


20  P0 
R8 
Q0 
A0 
Y0 


0.5*  (P2  +  P4) 
0.5* (R2+R4) 
0.5* (Q2+Q4) 
0.5* (A2+A4) 
0.5* (Y2+Y4) 


CALL  THERMO  (Q0 , P0 , R8 , T , C , M) 

LP  =  TAN ( A0 + AS IN (1.0/M) ) 

QP  =  GC*SQRT (M**2 -1 . 0) / (R8*Q0**2) 

SP  =  DELTA*SIN (A0) / (YO*M*COS (AO+ASIN (1 . 0/M) ) ) 
TP  =  -SP* (X4-X2) +QP*P2+A2 


IF (ITER. GT. 0) GOTO  25 


P4  =  P3 
Q4  =  Q3 
R4  =  R3 


25  PO  =  0 . 5* (P3+P4) 
R8  =  0 . 5* (R3+R4) 
QO  =  0 . 5* (Q3+Q4) 


RO  =  R8*Q0/GC 


CALL  THERMO  (QO , PO , R8 , T , C , M) 


AO  =  C**2/GC 
T01=R0*Q3+P3 
T02=P3 -A0*R3 

.  .  .  CALCULATE  THE  PROPERITIES  AT  POINT  4 

P4  =  (TP-A4 ) / QP 
Q4  =  (T01-P4) /RO 
R4  =  (P4-T02)/A0 
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OOOOOO  H  OOO  QQQQQQQQQQQOOO 


TEST  FOR  CONVERGENCE 


WRITE ( 6 , * ) 1  ' 

WRITE (6, 100) '  R0 
WRITE (6, 100) 1  AO 
WRITE (6, 100) '  T01 
WRITE (6, 100) 1  T02 
WRITE (6, 100) 1  Q+ 

WRITE (6, 100) '  S+ 

WRITE (6, 100) 1  T+ 

WRITE (6, 100) 1  Q- 

WRITE (6, 100) '  S- 

WRITE (6, 100) 1  T- 

IF ( ITER . EQ . I COR)  RETURN 

IF (ITER.EQ. 0)  GOTO  40 


'  ,  R0 
'  ,  A0 
'  ,  T01 
'  ,  T02 
1  ,QP 
'  ,  SP 
'  ,  TP 
1  /  QM 
'  ,  SM 
'  ,  TM 


IF ( (ABS (P4-PD) .GT.E2*PD)  .OR.  (ABS (R4-RD) .GT.E3*RD) )  GOTO  40 
IF ( (ABS (Q4-QD) .GT.E4*QD)  )  RETURN 


.  .  .  CALCULATE  THE  COEFFICIENTS  FOR  THE  CORRECTOR 
40  ITER  =  ITER  +  1 


PD  =  P4 
RD  =  R4 
QD  =  Q4 


100  FORMAT (A, 1P2E15 . 5) 
GOTO  10 


END 

SUBROUTINE  SPLINT (XA, YA, Y2A,  N, X, Y) 

DIMENSION  XA(N) ,  YA(N) ,  Y2A(N) 

KLO=  1 
KHI=N 

IF  (KHI-KLO.GT.l)  THEN 
K= (KHI+KLO) / 2 
IF (XA (K) . GT . X) THEN 
KHI=K 
ELSE 
KLO=K 
END  IF 
GOTO  1 
END  IF 

H=XA (KHI ) -XA(KLO) 

IF  (H.EQ.0.)  PAUSE  'Bad  XA  input.' 

A= (XA (KHI ) -X) /H 
B= (X-XA(KLO) ) /H 
Y=A*YA (KLO) +B*YA (KHI) + 

*  ( (A* *3 -A) *Y2A (KLO) + (B**3-B) *Y2A(KHI) ) * (H**2) /6 . 

RETURN 

END 

SUBROUTINE  BANNER (ASTR) 

CHARACTER* 13 2  ASTR/C2/C3 
CHARACTER* 1  Cl 
CHARACTER* 2  C4 

Cl  ='C' 

C2  ='C*********************************************************************** 
C3  ='C**  ** 

C4  = ■ **  ■ 

WRITE ( 6 , FMT= ' (A) ■ ) Cl 
WRITE ( 6 , FMT= ' (A) ■ ) C2 
WRITE ( 6 , FMT= ' (A) ' ) C3 

WRITE ( 6 , FMT= ' (A) ■ ) C3 (1 : 5) //ASTR (1 : 65) //C4 (1 : 2) 

WRITE ( 6 , FMT= ' (A) ■ ) C3 
WRITE ( 6 , FMT= ' (A) ■ ) C2 
WRITE ( 6 , FMT= ' (A) ■ ) Cl 

RETURN 

END 

SUBROUTINE  IVLFLOWFIELD 


*********************************************************************** 
*  * 
CALCULATE  THE  FLOW  FIELD  FROM  THE  INITIAL  VALUE  LINE  * 


* 

* 


*********************************************************************** 
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c 

c 


C*  * 
C*  TERMINOLOGY  FOR  SUPERSONIC  FLOW  METHOD  OF  CHARACTERISTICS  * 
C*  * 
C*  CONTROL  VARIABLE:  * 

C*  -  * 

C*  * 
C*  DELTA  =  'O'  FOR  PLANER  FLOW  * 
C*  =  '1'  AXISYMMETRIC  FLOW  * 
C*  ICOR  =  NUMBER  OF  APPLICATIONS  OF  THE  CORRECTOR  DESIRED  * 
C*  El  =  CONVERGENCE  TOLERANCE  FOR  LOCATION,  M  (IN)  * 
C*  E2  =  CONVERGENCE  TOLERANCE  FOR  VELOCITY,  M/S  (FT/SEC)  * 
C*  GC  =1.0  M-KG/N- S^2  OR  32.174  FT-LBM/LBF- S^2  * 
C*  GL  =1.0  M^2/M^2  OR  144.0  IN^2/FT^2  * 
C*  ST  =0.0  EVEN  SPACE  STARTLINE,  1.0  QUADRATIC  SPACED  * 
C*  * 
C*  GAS  THERMODYNAMIC  PROPERTIES  &  STAGNATION  PROPERTIES:  * 

C*  -  * 

c*  * 

C*  G  =  RATIO  OF  SPECIFIC  HEATS  * 
C*  RG  =  GAS  CONSTANT,  J/KG-K  (FT-LBF/LBM-R)  * 
C*  TS  =  STAGNATION  TEMPERATURE,  K  (R)  * 
C*  PS  =  STAGNATION  PRESSURE,  N/M^2  (LBF/IN^2)  * 
C*  PA  =  AMBIENT  PRESSURE,  N/M^2  (LBF/IN^2)  * 
C*  * 
C*  FLOW  FIELD  PROPERTIES:  * 
C*  -  * 

c*  * 

C*  X  =  AXIAL  COORDINATE,  M  (IN)  * 
C*  Y  =  RADIAL  COORDINATE,  M  (IN)  * 
C*  U  =  AXIAL  VELOCITY,  M/S  (FT/S)  * 
C*  V  =  RADIAL  VELOCITY,  M/S  (FT/S)  * 
C*  Q  =  VELOCITY  MAGNITUDE,  M/W  (FT/S)  * 
C*  A  =  FLOW  ANGLE,  RAD  * 
C*  P  =  STATIC  PRESSURE,  N/M^2  (LBF/IN^2)  * 
C*  R  =  STATIC  DENSITY,  KG/M^3  (LBM/FT^3 )  * 
C*  T  =  STATIC  TEMPERATURE,  K  (R)  * 
C*  C  =  SPEED  OF  SOUND,  M/S  (FT/S)  * 
C*  M  =  MACH  NUMBER  * 
C*  EMD  =  DESIGN  MACH  NUMBER  * 
C*  1,2,3,  =  DENOTES  PROPERTIES  AT  POINTS  * 
C*  * 
C*  TERMINOLOGY  EMPLOYED:  * 

C*  -  * 

C*  * 
C*  L  =  TAN (THETA+ -ALPHA)  * 
C*  Q  =  (U^2 - C^2 ) ,  M^2/S^2  (FT^2/S^2)  * 
C*  R  =  2UV-L (U^2 -C^2 )  M"2/S"2  (FT^2/S^2)  * 
C*  S  =  DELTA*C^2*V/Y,  M^2/S^3  (FT^2/SEC^3 - IN)  * 
C*  T  =  S*DEL (X) +Q*U+R*V,  M^3/S^3  (FT^3/S^3)  * 
C*  +/-  =  DENOTES  +  OR  -  CHARACTERISTIC  CURVE  * 
C*  * 


C* ********************************************************************** 

c 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 
C 

C* ********************************************************************* 
c**  ** 

C**  Function  Statements  ** 

C**  ** 

C* ********************************************************************* 

C 

TM (B)  =  B  /  TZERO 

ZMUIFD(B)  =  ZMZERO*TM (B) **1.5* ( (1. +CONSU) / (TM (B) +CONSU) ) 

RE  (B)  =  R  (1)  *  Q  (1)  *  X(l)  /  ZMUIFD(B) 

BL (B)  =  RE (B) **  (1./8  .  ) 

C 

C* ********************************************************************** 

C*  * 

C*  OUTPUT  THE  HEADER  * 

C*  * 

C* ********************************************************************** 

C 

WRITE (6,*)'  ' 

ASTR  =  'CALCULATE  THE  FLOWFIELD  FROM  THE  INITIAL  START  LINE' 

CALL  BANNER (ASTR) 

WRITE (3,1010) 
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WRITE (4,1010) 


C*  ********************************************************************** 

c*  * 

C*  LOOP  OVER  THE  NUMBER  OF  START  LINE  POINTS  -  I  * 

C*  * 

c*  ********************************************************************** 

c 

DO  80  I  =  1  ,  NI 

C . . . FIND  THE  NUMBER  OF  RADIAL  POINTS  FOR  EACH  I  LINE 


J1  =  NI  -  I  +  1 


! Lower  bound  on  J  -  initial  value  line 


J2  =  J1  +  2.*(I*1.-1.)  JUpper  bound  on  J  -  centerline  value 

WRITE (6, 1010) 

WRITE (7,*)'  1 


C*  ********************************************************************** 

C*  * 

C*  RESET  THE  MASS  FLOW  RATE  * 

C*  * 

C*  ********************************************************************** 

C 

MFRT  =  0.0 
KW  =  1 
C 

C*  ********************************************************************** 

c*  * 

C*  LOOP  OVER  THE  NUMBER  OF  RADIAL  POINTS  FOR  EACH  I  LINE  * 

C*  * 

C*  ********************************************************************** 

C 

! recall  that  as  j  increases  the  physical 
!  location  moves  away  from  startline 
!  towards  the  centerline 


DO  81  J  =  J1  ,  J2 


IF (J.EQ. Jl) THEN 
K  =  2  *NI  -  1  +  I 
CALL  MOVE ( 4 , K ) 
ELSEIF (J.EQ. J2) THEN 
CALL  MOVE ( 1 , J - 1 ) 
CALL  MOVE (6,0) 

CALL  AXIS 
ELSE 

CALL  MOVE ( 1 , J - 1 ) 
CALL  MOVE ( 2 , J ) 

CALL  INTERIOR_POINT 
END  IF 

CALL  MOVE (5, J) 

AP  =  A4  *  RAD 
PP  =  P4  /GL 


Jon  initial  value  line  data 

Jmove  current  point  into  point  4 
Jon  centerline 

Jmove  the  upper  point  into  point  1 

Jmove  the  old  P2  point  from  INTERIORPOINT  into  P3 
Ion  interior  point 

Jmove  the  upper  point  into  point  1 
Jmove  the  current  point  into  point  2 


I  save  point  4  into  current  array 


C*  * 

C*  CALCULATE  THE  MASS  FLOW  RATE  * 

C*  * 

c 

IF (J.EQ. Jl) THEN 
AREA_X  =  0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


AREAY 
DEL_X 
DEL_Y 
RAVE 
UAVE 
V_AVE 
ELSE 
DELX 
DEL_Y 
AREA_X 
AREAY 
R_AVE 
U_AVE 
V_AVE 
END  IF 


ABS (X4 -X ( J- 1) ) 

ABS (Y4 - Y ( J- 1) ) 

PI  *  ABS (Y4**2  -  Y ( J- 1) **2  )  *  DELTA  +  (1-DELTA) *ABS (Y4-Y (J-l) ) 
2.0  *  PI  *  ( Y4  +  Y(J-l) ) /2 . 0*DEL_X  *  DELTA  +  ( 1 -DELTA) *DEL_X 

(R4  +  R(J-l) )/2.0 
(U4  +  U(J-l) )/2.0 
(V4  +  V(J-l) )/2.0 


MFR 

MFRT 


=  RAVE* (U_AVE* AREA_X+V_AVE* AREAY ) 
=  MFR  +  MFRT 
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ERRORM  =  (MFRT-MDOT) /MDOT 
C* 

C*  ********************************************************************* * 

C*  * 

C*  OUTPUT  THE  FLOW  VARIABLES  * 

C*  * 

C*  ********************************************************************** 

c* 

IF  (KW.EQ. 1) THEN 

WRITE (6,1020) I ,  J, X4 ,  Y4 , U4 , V4 , M4 , Q4 , AP , PP ,  R4 , T4 
WRITE (7, 1020) I, J,X4, Y4,U4,V4,M4,Q4,AP,PP,R4,T4 

IF (J.EQ.l) WRITE (3, 1020) I, J,X4, Y4,U4,V4,M4,Q4,AP,PP,R4,T4 

IF (J.EQ.l) WRITE (32 ,1020) I , J, X4 , Y4 , TM (T4 ) , ZMUIFD (T4 ) ,RE(T4) ,BL(T4) , Y4+BL_SCALE*0 . 1404* ( (1.+X4) **0. 
125-1.0) 

IF (J.EQ.J2) WRITE (4,1020) I,J,X4,Y4,U4, V4 , M4 , Q4 , AP , PP , R4 , T4 
IF ( J . EQ . J2  .AND.  I . EQ . NI ) wri te ( 6 , * ) '  MASS  FLUX  =  1 , MFRT, 

>  '  PERCENT  ERROR  =  ' , ERROR_M*100 . 

END  IF 

C* 

C*  ********************************************************************** 

C*  * 

C*  PLACE  THE  FLOW  VARIABLES  INTO  STORAGE  * 

C*  * 

C*  ********************************************************************** 

C* 


X  Y  ( I ,  J ,  1) 

X  Y  ( I ,  J ,  2 ) 
FLOW(I, J, 1) 
FLOW (I, J, 2) 
FLOW (I, J, 3) 
FLOW (I, J, 4) 
FLOW (I, J, 5) 
FLOW (I, J, 6) 
FLOW (I, J, 7) 
FLOW (I, J, 8) 


X4 

Y4 

U4 

V4 

M4 

Q4 

A4 

P4 

R4 

T4 


C  JMAX  =  MAX  ( J ,  JMAX ) 

C* 

C*  ********************************************************************** 

C*  * 

C*  CHECK  FOR  CROSSING  LINES  * 

C*  * 

C*  ********************************************************************** 
C* 

IF ( I . GT . 2  .AND.  J . GE . Jl+1) THEN 


P1_X  =  X Y ( I , J , 1 ) 
P1_Y  =  X Y ( I , J , 2 ) 
P2_X  =  XY (I,J-1,1) 
P2_Y  =  XY (I,J-1,2) 


DO  JJ  =  Jl+2 


J2-1 


P3_X  =  XY (1-1, JJ, 1) 

P3_Y  =  XY ( I - 1 , JJ, 2 ) 

P4_X  =  XY(I-1, JJ-1,1) 

P4_Y  =  XY(I-1, JJ-1,2) 

CALL  LINE_INTERSECTION (P1_X, P1_Y, P2_X, P2_Y, P3_X, 
P3_Y,P4_X,P4_Y,H_FACTOR,G_FACTOR, IX, IY) 

IF (H_FACTOR . GE .0.0  .AND.  H_FACTOR . LE .1.0  .AND. 

G  FACTOR . GE . 0 . 0  .AND.  G  FACTOR . LE . 1 . 0  ) THEN 


WRITE ( 6 , * ) 1  [3 lmCHARACTERISTICS  INTERSECTION  DEDECTED ![ 0m 1 

C ...  interpolate  for  new  point 


X4 

= 

(1.0 

-  G 

FACTOR) *P1 

X 

+ 

G  FACTOR*P2  X 

Y4 

= 

(1.0 

-  G 

“FACTOR)  *P1~ 

Y 

+ 

G  FACTOR*P2  Y 

U4 

= 

(1.0 

-  G 

“FACTOR) *U4 

+ 

G 

FACTOR* FLOW (I, J-l, 1) 

V4 

= 

(1.0 

-  G 

FACTOR) *V4 

+ 

G 

FACTOR* FLOW ( I , J- 1 , 2 ) 

M4 

= 

(1.0 

-  G 

“FACTOR) *M4 

+ 

G 

“FACTOR*  FLOW ( I , J- 1 , 3 ) 

Q4 

= 

(1.0 

-  G 

“FACTOR) *Q4 

+ 

G 

“FACTOR*  FLOW ( I , J- 1 , 4 ) 

A4 

= 

(1.0 

-  G 

FACTOR) *A4 

+ 

G 

FACTOR*FLOW(I, J-l, 5) 

P4 

= 

(1.0 

-  G 

“FACTOR) *P4 

+ 

G 

“FACTOR* FLOW (I, J-l, 6) 

R4 

= 

(1.0 

-  G 

“FACTOR) *R4 

+ 

G 

“FACTOR*  FLOW ( I , J- 1 , 7 ) 

T4 

= 

(1.0 

-  G 

FACTOR) *T4 

+ 

G 

FACTOR*FLOW(I, J-l, 8) 

c* 

C*  * 
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C*  PLACE  THE  FLOW  VARIABLES  INTO  STORAGE  * 

C*  * 

C*  ********************************************************************** 

c* 

XY(I,J,1)  =  X4 

XY(I,J,2)  =  Y4 

FLOW  (I ,  J,  1)  =  U4 
FLOW (I ,  J, 2 )  =  V4 

FLOW (I ,  J, 3 )  =  M4 
FLOW (I ,  J,  4)  =  Q4 
FLOW (I ,  J,  5)  =  A4 
FLOW (I, J, 6)  =  P4 
FLOW (I ,  J, 7 )  =  R4 
FLOW (I ,  J,  8)  =  T4 

X(J)  =  X4 
Y ( J)  =  Y4 
P(J)  =  P4 
R ( J)  =  R4 
U(J)  =  U4 
V(J)  =  V4 
Q(J)  =  Q4 
A ( J)  =  A4 

BACKSPACE (7) 

WRITE (7, 1020) I, J,X4, Y4,U4,V4,M4,Q4,A4*RAD,P4/GL,R4,T4 
WRITE (6,1020) I, J,X4, Y4 ,U4 , V4 ,M4 , Q4 , A4*RAD, P4/GL, R4 , T4 

DO  JJJ  =  J+l  ,  J2 
XY(I,JJJ,1)  =  XY (I-1,JJJ-1,1) 

XY(I,JJJ,2)  =  XY(I-1, JJJ-1,2) 

FLOW (I , JJJ, 1)  =  FLOW (I-1,JJJ-1,1) 

FLOW (I , JJJ, 2 )  =  FLOW (I- 1, JJJ-1,2) 

FLOW (I , JJJ, 3 )  =  FLOW ( I  - 1 , JJJ- 1 ,  3 ) 

FLOW (I , JJJ, 4)  =  FLOW ( I  - 1 , JJJ- 1 ,  4 ) 

FLOW (I , JJJ, 5)  =  FLOW (I- 1, JJJ-1, 5) 

FLOW (I , JJJ, 6 )  =  FLOW ( I  - 1 , JJJ- 1 ,  6 ) 

FLOW (I , JJJ, 7 )  =  FLOW ( I  - 1 , JJJ- 1 ,  7 ) 

FLOW (I, JJJ, 8)  =  FLOW (I- 1, JJJ-1, 8) 

X(JJJ)  =  XY(I,JJJ,1) 

Y (JJJ)  =  XY(I,JJJ,2) 

P(JJJ)  =  FLOW (I , JJJ, 6 ) 

R (JJJ)  =  FLOW (I , JJJ, 7 ) 

U(JJJ)  =  FLOW (I , JJJ, 1) 

V(JJJ)  =  FLOW (I , JJJ, 2 ) 

Q (JJJ)  =  FLOW (I, JJJ, 4) 

A (JJJ)  =  FLOW (I, JJJ, 5) 

WRITE (6, 1020) I, JJJ, XY( I, JJJ, 1) ,XY(I, JJJ, 2) , FLOW (I , JJJ, 1) , FLOW ( I , JJJ, 2 ) , 

> 

FLOW ( I , JJJ , 3 )  , FLOW ( I , JJJ , 4 )  , FLOW ( I , JJJ , 5 ) *  RAD , FLOW ( I , JJJ , 6 ) /GL , FLOW ( I , JJJ , 7 )  , FLOW ( I , JJJ , 8 ) 
WRITE (7, 1020) I, JJJ, XY( I, JJJ, 1) ,XY(I, JJJ, 2) , FLOW (I , JJJ, 1) , FLOW ( I , JJJ, 2 ) , 

> 

FLOW ( I , JJJ , 3 )  , FLOW ( I , JJJ , 4 )  , FLOW ( I , JJJ , 5 ) *  RAD , FLOW ( I , JJJ , 6 ) /GL , FLOW ( I , JJJ , 7 )  , FLOW ( I , JJJ , 8 ) 
ENDDO 

IF (SMOOTH) THEN 
J_START  =  J1 
J_END  =  J2 
I_LINE  =  I 
I_FILE  =  7 

CALL  SMOOTH_PROFILE ( JSTART , JEND , IJLINE , 0 , I_FILE) 

END  IF 

GOTO  80 
END  IF 


ENDDO 

C* 

C*  * 

C*  END  OF  LINE  CROSSING  CHECK  * 

C*  * 

c* 

END  IF 

C* 

C*  * 

C*  END  OF  DOWNWARD  J  LOOP  * 

C*  * 
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c* 

81  CONTINUE 
C* 

C*  ********************************************************************** 
C*  * 

C*  END  OF  I  MACHING  INDEX  * 

C*  * 

C*  ********************************************************************** 
C* 

80  CONTINUE 
C 

C*  ********************************************************************* * 

c*  * 

C*  SMOOTH  THE  PROFILE  * 

C*  * 

c*  ********************************************************************** 

c 

IF (SMOOTH) THEN 
DO  LL  =  1  ,  2  *NI - 1 
BACKSPACE (7) 

ENDDO 

JSTART  =  1 

C  JEND  =  1  +  2 . * (NI*1 . - 1 . ) 

J_END  =  2  *NI - 1 
I_LINE  =  NI 
I_FILE  =  7 

CALL  SMOOTH_PROFILE ( J_START, J_END, I_LINE, 0 , I_FILE) 

END  IF 
C 

C*  ********************************************************************* * 

c*  * 

C*  FORMAT  STATEMENTS  * 

C*  * 

c*  ********************************************************************** 

c 


cl010  FORMAT (5X, ' I ' 

,4X, ' J' , 6X, 'X' , 9X 1 Y 1 

1  , 9X,  1 

'U' , 9X, 

■V' 

, 9X, 'M' , 9X, 

1 Q 1  / 

c  >9X,  1 A 1 , 9X,  1 P 1 

, 12X, 'R' , 12X, 

r  'T' ,/) 

1010  FORMAT (/,' 

I  J  1  /  1 

X 

1 

1 

Y 

' , '  u 

VELOCITY  ' ,  ' 

> 1  MACH  NUMBER 

',  'VELOCITY 

MAG' , ' 

FLOW 

ANGLE 

■  ■ 

PRESSURE 

' , '  DENSITY 

1020  FORMAT (215, 1P10E12 .4) 
RETURN 


C*  ********************************************************************** 

c*  * 

C*  END  OF  LINE  * 

C*  * 

C*  ********************************************************************* * 

c 

END 

SUBROUTINE  MOVE ( I ,  J) 

C 

C*  ********************************************************************* 
C**  ** 

C**  SUBROUTINE  MOVE  WILL  LOAD  THE  J  INDEX  FLOW  VARIABLE  INTO  THE  ** 
C**  CURRENT  I  POINT.  ** 

C**  ** 

c*  ********************************************************************* 
c* 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 
C 

C*  ********************************************************************* 

c**  ** 

c**  GO  TO  THE  CORRECT  MOVE  LOCATION.  ** 

C**  ** 

c*  ********************************************************************* 
c* 

GOTO  (10,20,30,40,50,60)  I 
C 

C*  ********************************************************************* 
C**  ** 

C**  LOAD  CURRENT  ARRAY  INTO  POINT  1.  ** 

C**  ** 

c*  ********************************************************************* 
c* 


XI 

=  X 

(J) 

Y1 

=  Y 

(J) 

PI 

=  P 

(J) 

R1 

=  R 

(J) 

Q1 

=  Q 

(J) 

VELOCITY  ' , 

'  ,  '  TEMPERATURE  1 ) 
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A1  =  A  ( J) 


RETURN 

C  _  _  ^  ^  . 

c**  ** 

C**  LOAD  CURRENT  ARRAY  INTO  POINT  2.  ** 

C**  ** 

C* 


X2 

= 

X(J) 

Y2 

= 

Y(J) 

P2 

= 

P(J) 

R2 

= 

R(J) 

Q2 

= 

Q  ( J) 

A2 

= 

A  ( J) 

RETURN 

Q**  ** 

C**  LOAD  CURRENT  ARRAY  INTO  POINT  3.  ** 

C**  ** 

C* 


X3 

= 

X(J) 

Y3 

= 

Y(J) 

P3 

= 

P(J) 

R3 

= 

R(J) 

Q3 

= 

Q  ( J) 

A3 

= 

A  ( J) 

RETURN 

c**  ** 

C**  LOAD  CURRENT  ARRAY  INTO  POINT  4.  ** 

C**  ** 

C* 


X4 

= 

X(J) 

Y4 

= 

Y  (  J) 

P4 

= 

P(J) 

R4 

= 

R  ( J) 

Q4 

= 

Q  ( J) 

A4 

= 

A  ( J) 

RETURN 

c**  ** 

C**  LOAD  POINT  4  INTO  THE  ARRAY.  ** 

C**  ** 

C* 


X(J) 

= 

X4 

Y  ( J) 

= 

Y4 

P(J) 

= 

P4 

R  ( J) 

= 

R4 

Q  ( J) 

= 

Q4 

A  ( J) 

= 

A4 

U4  =  Q4*COS(A4) 

V4  =  Q4*SIN(A4) 

U(J)  =  U4 
V(J)  =  V4 

CALL  THERMO (Q4 , P4 , R4 , T4 , C, M4) 

RETURN 

C 

C*  ********************************************************************* 
C**  ** 

C**  LOAD  POINT  2  INTO  POINT  3.  ** 

C**  ** 

c*  ********************************************************************* 
c* 


60 

X3 

=  X2 

Y3 

=  Y2 

P3 

=  P2 

R3 

=  R2 
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Q3  =  Q2 
A3  =  A2 


RETURN 


********************************************************************** 
**  ** 

**  END  OF  SUBROUTINE  ** 
**  ** 
********************************************************************** 


END 

SUBROUTINE  THERMO (QO , PO , RO , T , C , M) 

.  . .  CALCULATE  T  -  Temp,  C  -  Speed  of  Sound,  AND  M  -  MACH  NUMBER 
.  . .  FOR  GIVEN  Q  -  Velocity,  P  -  Pressure,  AND  R  -  Density 


C 

C*** 

C* 

c. .  . 

c.  .  . 
C.  .  . 
c.  .  . 
c.  .  . 
c.  .  . 
C.  .  . 
C.  .  . 
C.  .  . 
C.  .  . 
C.  .  . 
C.  .  . 
C.  .  . 
C.  .  . 
C.  .  . 
C.  .  . 
C.  .  . 
C.  .  . 
C.  .  . 
C.  .  . 

c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 
c. .  . 


INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 

T  =  PO  /  (RG*R0 ) 

C  =  SQRT (G*GC*RG*T) 

M  =  QO  /  C 

RETURN 

END 

SUBROUTINE  BOUNDARY ( INITIAL) 

******************************************************************** 


FOR  A  NOZZLE  HAVING  A  CIRCULAR  ARC  THROAT  JOINED  TANGENTIALLY  TO 
A  WALL  HAVING  A  CONTOUR  DESCRIBED  BY  A  SECOND  ORDER  POLYNOMIAL  - 
LOCATE  THE  INTERSECTION  OF  A  LEFT  RUNNING  CHARACTERISTIC 
WITH  A  SECOND  ORDER  QUADRATIC  WALL  CONTOUR 

INPUT : 

YT  is  the  throat  radius 

RTD  is  the  radius  of  curvature  of  throat  above  YT 
AA  is  angle  for  RTD 
AE  is  angle  at  lip 
XE  is  the  exit  location 


RTD 


* 

*  <-  Angle  AA 
* 

* 

* 


<  - 


v 

THROAT  - 


* 

-  Attachment  Point 


Exit  Location  XE  with  angle  AE 


YT 


Points  1  and  3  are  known 
Point  4  is  located  on  the  wall 
Point  3  is  located  on  the  wall 

1  and  3 

2  and  4 

3  and  4 

## 

WALL  ## 

##  *4 
##  * 

##  * 

##  *  C+ 

3*  * 

*  * 

C-  *  * 

2* 

* 

*  i 


Point  2  is  located  between  points  1  and  3 
The  C-  characteristic  goes  through  points 
The  C+  characteristic  goes  through  points 
The  streamline  goes  through  points 
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C*  ********************************************************************** 

c 

c*  ********************************************************************** 
c**  ** 

c**  INCLUDE  STATEMENTS  ** 

C**  ** 

C*  ********************************************************************** 

c 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 

DEBUG  =  .TRUE. 

C. . .  convert  angles  into  radians 

TA  =  AA  /  RAD  ! Attachment  angle 

TE  =  AE  /  RAD  !Exit  angle 

GOTO  (10,20)  INITIAL 
C 

C*  ********************************************************************** 

c**  ** 

c**  INITIAL  WALL  IS  A  CIRCLE  ** 

C**  ** 

c*  ********************************************************************** 

c 

10  CONTINUE 

WRITE ( 6 , * ) 1  ' 

ASTR  =  'INITIAL  WALL  PROFILE  IS  A  CIRCLE' 

CALL  BANNER (ASTR) 

WRITE (6,*)'  ' 

WRITE (6,*)'  Where:' 

WRITE (6,*)'  X  =  RTD  *  SIN (THETA)' 

WRITE (6,*)'  Y  =  YT+RTD* (1. -COS (THETA) ) ' 

WRITE (6, *) '  ' 

WRITE ( 6 , * ) '  and:  THETA  =  Wall  Angle  from  0.0  to  Attachment  Angle' 

WRITE (6,*)' 

WRITE ( 6 , FMT= ' (A,1P2E15.5) ') '  Starting  Point  (X,YT)  =  ',  0 . 0 , YT 

C 

C*  ********************************************************************** 

C**  ** 

C**  FIND  THE  COEFFICENTS  OF  THE  SECOND  ORDER  QUADRATIC  WALL  ** 

C**  ** 

C**  CALCULATE  THE  COEFFICIENTS  Cl,  C2,  C3  ** 

C**  WHERE  Y  =  Cl  +  C2*X  +  C3*X**2  ** 

C**  ** 

c*  ********************************************************************* * 

c 

C. . .  From  geometry,  find  the  attachment  point,  the  point  that  ends 
C. . .  the  circle  and  begins  the  second  order  quadratic. 

XA  =  RTD  *  SIN (TA) 

YA  =  YT+RTD* (1. -COS (TA) ) 

C. . .  Using  the  starting  and  ending  angles  of  the  quadratic  find 
C. . .  the  coefficents 


C3  =  (TAN (TE) -TAN (TA) ) / (2.0* (XE-XA) ) 
C2  =  TAN(TA) -2 . 0*C3*XA 
Cl  =  YA-C2*XA-C3*XA**2 


WRITE  (6, *)  '  ' 

ASTR  =  'SECOND  ORDER  QUADRATIC  WALL  CONTOUR,  DOWNSTREAM  OF  CIRCLE' 
CALL  BANNER (ASTR) 

c  WRITE (6, *) 'USING  SECOND  ORDER  QUADRATIC  WALL  CONTOUR' 

c  WRITE  (6,  *)  '  - ' 

WRITE  (6,*)'  Where:' 

WRITE ( 6 , * ) '  Y  =  Cl  +  C2*X  +  C3*X**2 ■ 

WRITE (6,*)' 

WRITE (6,*)'  And:' 

WRITE ( 6 , FMT= ' (A,1PE15.5) ') '  Cl  =  ' , Cl 

WRITE ( 6 , FMT= ' (A,1PE15.5) ') '  C2  =  ' , C2 

WRITE ( 6 , FMT= ' (A,1PE15.5) ') '  C3  =  ' , C3 

WRITE  (6, *)  '  ' 

WRITE  ( 6 , * )  '  Starting  Location:  ' 

WRITE ( 6 , FMT= ' (A,1P2E15.5) ') '  Attachment  Point  (XA, YA)  =  ',  XA, YA 

WRITE ( 6 , FMT= ' (A,1P1E15.5) ■) ■  Attachment  Angle  (Degrees)  =  ',  AA 

YE  =  C1  +  C2  *XE  +C3*XE**2 
LE  =  C2+  2 . *C3*XE 
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IF (DEBUG) GOTO  30 


RETURN 

C 

C* ********************************************************************** 
c**  ** 

c**  SOLVE  FOR  THE  INTERCEPTION  LOCATION  OF  THE  UPWARD  CHARACTERISTIC  ** 
C**  AND  THE  SECOND  ORDER  QUADRATIC  WALL,  POINT  X4 , Y4  AND  SLOPE  A4  ** 

C**  ** 

C**  LP  IS  THE  TANGENT  ANGLE  AT  POINT  X2 , Y2  ** 

C**  ** 

*********************************************************************** 

20  CONTINUE 

IF (AA.EQ.AE) THEN 
X4  =  (Cl- Y2+LP*X2 ) /  (LP-C2) 

ELSE 

X4  =  ( (LP-C2) -SQRT ( (LP-C2) **2-4 . 0*C3* (C1-Y2+LP*X2) ) ) / (2 . 0*C3) 

END  IF 

Y4  =  C1+C2*X4  +C3*X4**2 
A4  =  ATAN (C2+  2.*C3*X4) 

C  IF (DEBUG) THEN 

c  WRITE (6,*)'  ' 

C  WRITE (6,*)'  LOCATION  OF  THE  INTERSECTION  OF  THE  UPWARD  RUNNING', 

C  >'  CHARACTERISTIC  WITH  A  SECOND  ORDER  QUADRATIC  WALL  CONTOUR.' 
c  write (6,*) 'P(  X4  ,  Y4  )  =  ',X4,Y4 

c  WRITE (6,*)'  ' 

c  END IF 


RETURN 

C 

C* ********************************************************************** 

c*  * 

C*  MAKE  GNU  PLOT  FOR  VIEWING  DATA  * 

C*  * 

c* ********************************************************************** 

c 

30  CONTINUE 

WRITE (6,*)'  ' 

OPEN (UNIT=55, FILE= ' WALL_DEFINITION . dem ' , FORM= ■ FORMATTED ' ) 

WRITE  (55, 500) 

500  FORMAT ( ' #  GNUPLOT  v3 . 6  beta  multiplot  script  file',/, 

>'set  terminal  pdf  enhanced  color  font  "Helvetica"  fsize  8  size  10.5  in,  8.0  in',/, 
> ' set  output  "WALL_DEFINITION.pdf "' ,/, 

>'set  key  left  top  box',/, 

> ' set  border ' , /, 

> ' set  grid ' , / , 

>'set  style  line  1  It  rgb  "black"  lw  1  pt  1  ps  1',/, 

>'set  style  line  2  It  rgb  "red"  lw  1  pt  2  ps  1',/, 

> ' set  style  line  3  It  rgb  "green"  lw  1  pt  3  ps  1',/, 

>'set  style  line  4  It  rgb  "blue"  lw  1  pt  4  ps  1',/, 

>'set  style  line  5  It  rgb  "orange"  lw  1  pt  5  ps  1',/, 

> ' set  style  line  6  It  rgb  "yellow"  lw  1  pt  6  ps  1',/, 

> ' show  terminal  ',/, 

> ' set  title  "WALL  DEFINITION"',/, 

> ' set  xlabel  "Axial  Length"',/, 

> ' set  ylabel  "Radial  Length"',/, 

>'set  palette  defined  (0000,  1001,  3010,  4100,  611  1)',/, 

> ' set  hidden3d') 

WRITE (55, 501) 

501  FORMAT ('plot  [0:]  [0:]  "-"  using  1:2  with  linespoints  title  "CIRCULAR  ARC"  Is  1') 

DO  Z  =  0.0  ,  TA,  TA/ 25.0 
XZ  =  RTD  *  SIN (Z) 

YZ  =  YT+RTD* (1. -COS (Z) ) 

WRITE ( 55 , * ) XZ , YZ 
ENDDO 

WRITE (55,*)'  ' 

WRITE (55, *) RTD  *  SIN(TA),  YT+RTD* (1 . -COS (TA) ) 

WRITE (55,*)'  ' 

DO  Z  =  RTD  *  SIN (TA) ,  XE  ,  (XE-RTD  *  SIN (TA) ) /100 . 0 
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xz  =  z 

YZ  =  Cl  +  C2*XZ  +  C3*XZ**2 

WRITE (55, *) XZ, YZ 

ENDDO 

WRITE (55, *)  1  1 

WRITE ( 55 , * ) XE , YE 

IF ( INITIAL . EQ . 2 ) THEN 
WRITE (55, *)'  1 

WRITE ( 55 , * ) X2 , Y2 
WRITE (55, *) X4,Y4 
END  IF 

WRITE (55, 503) 

503  FORMAT (' end  1 ) 

CLOSE (55) 

WRITE (6,*)'  ' 

WRITE (6,*)'  Type:  gnuplot  WALLDEFINITION. dem  ;  open  WALL_DEFINITION.pdf 


END 

SUBROUTINE  IVLINE 


C*  ********************************************************************* 
C**  ** 

C**  SUBROUTINE  IVLINE  DETERMINES  AN  INITIAL  VALUE  LINE  USING  ** 

C**  SAUERS  METHOD.  THIS  METHOD  CONVERTS  A  MACH  1  START  INTO  ** 

C**  A  TRANSONIC  START  LINE  DOWNSTREAM  OF  THE  THROAT.  ** 

C**  ** 

C*  ********************************************************************* 

c 

c*  ********************************************************************* * 

c*  * 

C*  TERMINOLOGY  FOR  SUBROUTINE  IVLINE  * 

C*  * 

C*  CONTROL  VARIABLE:  * 

C*  -  * 

c*  * 

C*  DELTA  =  'O'  FOR  PLANER  FLOW  * 

C*  =  '1'  AXISYMMETRIC  FLOW  * 

C*  NI  =  ODD  NUMBER  OF  EQUALLY  SPACE  POINTS  ON  THE  VPRIME  =  0  LINE  * 

C*  I UNITS  =  1  FOR  EE  UNITIS  * 

C*  =2  FOR  SI  UNITIS  * 

C*  * 

C*  NOZZLE  THROAT  GEOMETRY  AND  PERFORMANCE  PARAMETERS  * 

C*  -  * 

c*  * 

c*  YT  =  NOZZLE  THROAT  RADIUS,  M  (IN)  * 

C*  RTU  =  NOZZLE  THROAT  UPSTREAM  RADIUS  OF  CURVATURE,  M  (IN)  * 

C*  ALPHA  =  COEFFICIENT  OF  LINEAR  AXIAL  VELOCITY  PERTURBATION,  M^ - 1  * 

C*  EPS  =  LOCATION  OF  NOZZLE  THROAT,  M  (IN)  * 

C*  ASTAR  =  CRITICAL  SPEED  OF  SOUND,  M/S  (FT/SEC)  * 

C*  MDOT  =  MASS  FLOW  RATE,  KG/S  (LBM/SEC)  * 

C*  MDOTS  =  ID  MASS  FLOW  RATE,  KG/S  (LBM/SEC)  * 

C*  CD  =  DISCHARGE  COEFFICIENT  MDOT/MDOT, ID  * 

C*  F  =  THROAT  THRUST,  N  (LBF)  * 

C*  FS  =  ID  THROAT  THRUST,  N  (LBF)  * 

C*  LAMBDA  =  THRUST  RATIO,  FT/FT, ID  * 

C*  * 

c*  ********************************************************************** 
c* 
c* 

c*  ********************************************************************** 

c*  * 

C*  INCLUDE  AND  COMMON  STATEMENTS  * 

C*  * 

C*  ********************************************************************** 
C* 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 

C* 

C*  ********************************************************************** 

C*  * 

C*  FUNCTION  STATEMENTS  -  INPUT  IS  VELOCITY  * 

C*  * 

C*  ********************************************************************** 
C* 

TT (X)  =  TS  -  X*X/ (2 . 0*GC*CP)  ! static  temperature 

AM (X)  =  X  /  SQRT (G*GC*RG*TT (X) )  !mach  number 

PP(X)  =  PS  *  (TT(X) /TS) ** (G/ (G-1.0) )  Istatic  pressure 
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RR  (X)  =  PP(X)  /  RG  /  TT (X) 


!  static  density 


C*  ********************************************************************* * 

C*  * 

C*  OUTPUT  STATEMENTS  * 

C*  * 

C*  ********************************************************************** 

c* 

WRITE (6, *) 1  1 

ASTR  =  'DETERMINE  AN  INITIAL  VALUE  LINE:  TRANSONIC  START  LINE' 

CALL  BANNER (ASTR) 

C* 

C*  ********************************************************************** 

C*  * 

C*  CHECK  TO  SEE  IF  INPUTS  ARE  VALID  FOR  SAUERS  METHOD  * 

C*  * 

C*  ********************************************************************** 

C* 

IF (RTU/YT  .LE.  1.0) THEN 
WRITE (6, *) '  1 

WRITE (6,*) ' [31m  THE  RATIO  OF  RTU/YT  IS  INVALID  FOR  SAUERS  METHOD! [0m  ' 

WRITE ( 6  ,  * ) 1  RTU/YT  =  ',  RTU/YT 

WRITE ( 6  ,  * ) 1  IF  POSSIBLE,  INCREASE  THE  RATIO  TO  >  2' 

WRITE ( 6 , * ) 1  ********  STOPPING  THE  CODE  ********** 

STOP 

ELSEIF (RTU/YT. GT.  1.0  .AND.  RTU/YT . LT .  2.0) THEN 
WRITE (6, *) '  ' 

WRITE (6,*)'  WARNING: [33m  THE  RTU/YT  RATIO  IS  MARGINALLY  ACCECPTABLE .  [0m‘ 

WRITE (6,*)'  RTU/YT  =  RTU/YT 

WRITE (6,*)'  IF  POSSIBLE,  INCREASE  THE  RATIO  TO  >  2 ' 

END  IF 


C*  ********************************************************************* * 

c*  * 

C*  CALCULATE  THE  REFERENCE  PARAMETERS  FOR  SAUERS  METHOD  * 

C*  * 

c*  ********************************************************************** 
c* 

ALPHA  =  SQRT ( (1 . 0+DELTA) / ( (G+l . 0) *RTU*YT) ) 

DY  =  YT  /  (NI*1 . - 1 . ) 

Cl  =- (G+l. 0) * ALPHA/ (2 . 0* (3 . 0+DELTA) ) 

C2  =  (G+l. 0) *ALPHA**2/ (2 . 0* (1. 0+DELTA) ) 

C* 

C*  ********************************************************************** 

C*  * 

C*  CALCULATE  THE  AXIAL  DISPLACEMENT  DOWNSTREAM  OF  THE  THROAT  * 

C*  * 

C*  ********************************************************************* * 

c* 

EPS  =- (G+l. 0) *ALPHA*YT**2/ (2 . 0* (3 . 0+DELTA) ) 

C* 

C*  ********************************************************************** 
C*  * 

C*  SET  INITIAL  VARIABLES  * 

C*  * 

C*  ********************************************************************** 
C* 

IF (DELTA . EQ . 1) THEN 

AT  =  PI*YT*YT/GL  JArea  at  throat 

ELSE 

AT  =  YT 

END  IF 


Y (NI*2 )  =  0.0 
MDOT  =  0.0 
F  =0.0 


linital  radial  location 
linital  mass  flow 
linital  thrust 


AS  =  SQRT (2 . 0*G*GC*RG*TS/ (G+l. 0) )  ! speed  of  sound 

MDOTS  =  AS*RR (AS) *AT  !mass 

FS  =  PP (AS) *AT+MDOTS*AS/GC  ! force 

FOD  =  FS-PA*AT  ! ambient  force 


C*  ********************************************************************* * 
C*  * 

C*  CALCULATE  LOCATION  AND  PROPERTIES  OF  INITIAL  VALUE  LINE  POINTS  * 
C*  * 

c*  ********************************************************************** 
c* 

WRITE (6, 1000) 

1000  FORMAT ('  POINT  X  BAR  '  Y  ' U  VELOCITY  ' 

>,  'V  VELOCITY  1  ,  1  MACH  NUMBER  ',  'VELOCITY  MAG','  FLOW  ANGLE  ', 

>'  PRESSURE  ','  DENSITY  ',' TEMPERATURE  ','  MASS  FLOW  ') 
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c 

C* 

C** 

c* 

c* 

c* 

C** 

c* 


c* 

C** 

c* 

c* 

c* 

c** 

c* 


c. . 


c* 

C** 

c* 

c* 

c* 

c* 

c** 

c* 


c* 

C** 

c* 

c* 

c* 

c** 

c* 


c* 

c** 

c* 

c* 

c* 

C** 

c* 


c* 

C** 

c* 


DO  10  I  =  1,  NI 

J  =  I  +  100 
J  =  I  +  NI*2 . 0  -  1 

********************************************************************* 

* 

CALCULATE  Y  SPACING  * 

* 

********************************************************************* 
IF (ST.EQ. 0 . 0) THEN 

IF(I.GT.l)  Y ( J) =Y ( J-l) +DY  ! Evenly  space  y 

ELSE 

ZETA  =  (1*1. -1. ) / (NI*1. -1. ) 

IF(I.GT.l)  Y(J) =YT* (1. - (1. -ZETA) **2)  IQuaddratic  spacing  for  y 
END  IF 

********************************************************************* 

* 

FIND  AXIAL  LOCATION  AND  VELOCITY  USING  SAUERS  METHOD  * 

* 

********************************************************************* 


X(J)  =  Cl  *  Y ( J) **2  +  ERROR 

U(J)  =  AS  *  (1.  +  ALPHA* X (J) +C2*Y (J) **2) 

.  Off  set  x  term 

X(J)  =  X(J)  -  EPS 

T  =  TT  (U(J)  ) 

M  =  AM ( U ( J )  ) 

PZ  =  PP  (U(J)  ) 

RZ  =  RR  (U  ( J)  ) 

Cl  =  3 . 0+  (-1. 0) **I 

IF( (I.EQ.l) .OR. (I.EQ.NI) )  Cl  =  1.0 

********************************************************************* 

* 

FIND  AREA  -  Correct  for  planar/axi symmetric  flow  * 

DELTA  =  0  for  planar,  1  for  axisymmetric  * 

* 

********************************************************************* 

IF (I .NE . 1) THEN 

AREA  =  PI  *  (Y ( J) **2  -  Y(J-1)**2)  *  DELTA  +  (1-DELTA) * (Y (J) -Y (J-l) ) 
ELSE 

AREA  =  0.0 
END  IF 

********************************************************************* 


FIND  MASS  FLOW  AND  FORCE  * 

* 

********************************************************************* 


MDOT  =  MDOT  +  RZ*U(J)*AREA 
F  =  F  + ( (PZ-PA) +RZ*U ( J) **2/GC) *AREA 

V(J)  =  0.0 

Q ( J)  =  U(J)  ! VELOCITY  MAG 

A ( J)  =  0.0  ! FLOW  ANGLE 

P(J)  =  PZ 
R ( J)  =  RZ 
PZ  =  PZ/GL 

********************************************************************* 

* 

OUTPUT  THE  FLOW  VARIABLES  * 

* 

********************************************************************* 


JJ  =  NI-I+1  !  axial  index 

WRITE  (6,2001)  I,JJ,X(J)  ,Y(J)  ,U(J)  ,V(J)  ,M,Q(J)  ,A(J)  ,  PZ  ,  RZ  ,  T ,  MDOT 
WRITE  (13,2  001)  I,  JJ,X(J)  ,Y(J)  ,U(J)  ,V(J)  ,M,Q(J)  ,A(J)  ,  PZ ,  RZ ,  T ,  MDOT 

********************************************************************* 

* 
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C*  PLACE  THE  FLOW  VARIABLES  INTO  STORAGE  * 

C*  * 

C* ********************************************************************** 

c* 


XY ( I , JJ, 1) 

= 

X(J) 

XY ( I , JJ, 2 ) 

= 

Y(J) 

FLOW (I, JJ, 1) 

= 

U(J) 

FLOW (I, JJ, 2) 

= 

V(J) 

FLOW (I, JJ, 3) 

= 

M 

FLOW (I, JJ, 4) 

= 

Q(J) 

FLOW (I, JJ, 5) 

= 

A  ( J) 

FLOW (I, JJ, 6) 

= 

PZ 

FLOW (I, JJ, 7) 

= 

RZ 

FLOW (I, JJ, 8) 

= 

T 

c* 

c*  * 

C*  END  OF  I  DO  LOOP  * 

C*  * 

C* 

10  ENDDO 


C* 

C* 

C* 

C* 

C* 

C* 

C* 


********************************************************************** 

* 

OUTPUT  THE  MASS  FLOW  AND  THRUST  * 

* 

********************************************************************** 


C  IF (ST.EQ. 0 . 0) THEN 

c  MDOT  =  MDOT*2 . 0*PI*DY/ (3 . 0*GL) 

c  F  F*2 . 0*PI*DY/ (3 . 0*GL) 

c  END IF 


CD  =  MDOT/MDOTS 
ETAF  =  F/FOD 
ETAI  =  ETAF/CD 


INozzle  Discharge  Coefficient 
IThrust  ratio  (efficiency) 

! Thrust  ratio  /  Nozzle  Discharge 


WRITE (6, *) 1  1 

WRITE (6 , 2002) MDOT , MDOTS , CD, F, FOD , ETAF , ETAI 
C 

C* ********************************************************************** 
C*  * 

C*  MAKE  GNU  PLOT  FOR  VIEWING  DATA  * 

C*  * 

C* ********************************************************************** 

C 

IF (DEBUG) THEN 


WRITE  (6, *)  1  1 

OPEN (UNIT=55 , FILE= ' STARTINGCONDITIONS . dem 1 , FORM= 1  FORMATTED  1 ) 

WRITE (55,500) 

500  FORMAT ( 1 #  GNUPLOT  v3 . 6  beta  multiplot  script  file',/, 

>'set  terminal  pdf  enhanced  color  font  "Helvetica"  fsize  8  size  10.5  in,  8 
> 1  set  output  " STARTING  CONDITIONS . pdf " 1 , / , 

>'set  key  left  top  box1,/, 

> 1  set  border1 , /, 

> 1  set  grid '  ,  / , 


> '  set 

style 

line 

1 

It 

rgb 

"black" 

lw 

1 

pt 

1 

ps 

1 1 

,/, 

> '  set 

style 

line 

2 

It 

rgb 

"red" 

lw 

1 

pt 

2 

ps 

1' 

,/, 

> '  set 

style 

line 

3 

It 

rgb 

"green" 

lw 

1 

pt 

3 

ps 

1' 

,/, 

> '  set 

style 

line 

4 

It 

rgb 

"blue" 

lw 

1 

pt 

4 

ps 

1 1 

,/ , 

> '  set 

style 

line 

5 

It 

rgb 

"orange" 

lw 

1 

pt 

5 

ps 

1' 

,/, 

> '  set 

style 

line 

6 

It 

rgb 

"yellow" 

lw 

1 

pt 

6 

ps 

1' 

,/, 

> 1  show  terminal  ',/, 

> 1 #set  title  "STARTING  NOZZLE  FLOW  CONDITIONS"',/, 

> 1  set  ylabel  "Radial  Length"',/, 

>'set  autoscale  x',/, 

>'set  autoscale  y',/, 

> ' set  multiplot  layout  2,  1  title  "STARTING  NOZZLE  FLOW  CONDITIONS"',/, 
>'set  size  0.5, 0.5',/, 

>'set  origin  0,0',/, 'set  xlabel  "Density  (kg/m^3 ) " ' , / , 

>'plot  [:]  [:]  "fort. 7"  using  11:4  with  lines  notitle  Is  1',/, 

>'set  size  0.5, 0.5',/, 

>'set  origin  0 , 0 . 49 ' , / , ' set  xlabel  "Pressure  (Pa)"',/, 

>'plot  [:]  [:]  "fort. 7"  using  10:4  with  lines  notitle  Is  1',/, 

>'set  size  0.5, 0.5',/, 

>'set  origin  0 . 5 , 0 . 49 ' , / , ' set  xlabel  "Temperture  (K)"',/, 

>'plot  [:]  [:]  "fort. 7"  using  12:4  with  lines  notitle  Is  1',/, 

>'set  size  0.5, 0.5',/, 


.  0  in' 
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> 1  set  origin  0 . 5 , 0 . 0 ' , / , ' set  xlabel  "MACH  NUMBER" 

>'plot  [:]  [:]  "fort. 7"  using  7:4  with  lines  notitle  Is  l1) 

CLOSE (55) 

WRITE (6, *) 1  1 

WRITE ( 6  ,  * ) 1  Type:  gnuplot  STARTINGCONDITIONS . dem  ;  open  STARTING_CONDITIONS.pdf 


END  IF 


C* 

C*  * 

C*  RETURN  TO  MAIN  PROGRAM  * 

C*  * 

C* 

RETURN 


C* 

C*  * 
C*  FORMAT  STATEMENTS  * 
C*  * 


C* 

2001  FORMAT (215 , 1P11E12 . 4) 

2002  FORMAT (/ , IP , 


> 

9X, 

'Mass  Flow  Rate  =  1 ,E12.3,/, 

> 

9X, 

■Mass  Flow  Rate  (ID)  =  ' ,E12.3,/, 

> 

9X, 

1  Nozzle 

Discharge  Coefficient  =  1 ,E12.3,/, 

> 

/, 

> 

9X, 

1  Thrust 

=  ',E12.3,/, 

> 

9X, 

1  Thrust 

(ID)  =  ',E12.3,/, 

> 

9X, 

■  Thrust 

ratio  (efficiency)  =  1 ,E12.5,/, 

> 

9X, 

1  Thrust 

ratio  /  Nozzle  Discharge  =  ',E12.5) 

END 


SUBROUTINE  TURNING 
C 

C* ********************************************************************** 

c*  * 

C*  THIS  ROUTINE  COMPUTE  THE  TURNING  REGION  FLOWFIELD  * 

C*  * 

c* ********************************************************************** 

c 


c. .  . 

C. . .  This  subroutine  computes  the  turning  region. 

C.  .  . 

C. . .  Points  1,  2  and  3  are  known 

C. . .  Point  4  is  the  intersection  of  points  1  and  2 
C. . .  Point  5  is  located  between  points  1  and  3 

C. . .  The  C-  characteristic  goes  through  points  2  and  4 

C. . .  The  C+  characteristic  goes  through  points  1  and  4 

C. . .  The  streamline  goes  through  points  5  and  4 

C.  .  . 

C.  .  . 

C...  3* 

C. . .  *  *  Final  Characteristic  Line 

C.  .  .  *  4  * 

C .  .  .  5*******  * 

C.  .  .  *  *  *  * 

C.  .  .  *  *  *  * 

C.  .  .  1  *  *  2 

C.  .  .  *  * 

C.  .  .  *  * 

C.  .  .  * 

C.  .  . 

C.  .  . 

C. . .  Calculate  the  solution  at  an  interior  point 
C.  .  . 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN ' 

C* 

C* ********************************************************************** 

C*  * 

C*  SET  CONSTANTS  * 

C*  * 

C* ********************************************************************** 
C* 

ITER  =  0 

C* 
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C** 

c* 

c* 

c* 

C** 

c* 


c 

c* 

C** 

c* 

c* 

c* 

c** 

c* 


c 

c 


C* 

c** 

c* 

c* 

c* 

C** 

c* 


c 


c* 

C** 

c* 

c* 

c* 

C** 

c* 


c* 

C** 

c* 

c* 

c* 

C** 

c* 

10 


c 


c* 

c** 

c* 

c* 

c* 

c* 

C** 

c* 

20 

c* 

c** 

c* 

c* 

c* 


********************************************************************* 

* 

CALCULATE  THE  SLOPE  BETWEEN  POINTS  PI  AND  P3  * 

* 

********************************************************************* 

IF (X1.EQ.X3) THEN 

L13  =0.0 

ELSE 

L13  =  (Y1-Y3) / (X1-X3) 

END  IF 

write (6 ,  *) 'L13  =  1 ,L13 

********************************************************************* 

* 

CALCULATE  THE  PROPORTIES  AT  POINT  PI  FOR  THE  CHARA  +  * 

* 

********************************************************************* 

CALL  THERMO  (Q1 , PI , R1 , T , C , M) 

LP  =  TAN (Al+ASIN (1 . /M) ) 
write (6, *) 'ERROR  =  1 , ERROR 
write  (6, *)  ' LP  =  ' ,LP 
QP  =  GC*SQRT(M**2-1.) / (R1*Q1**2) 

SP  =  DELTA/ (M*COS (Al+ASIN (l./M) ) ) 

IF (Y2 .EQ. 0 . 0)  SP  =  SP  *  SIN(A2)/Y2 
IF (Y2 .GT. 0 . 0)  SP  =  SP  *  SIN(A1)/Y1 

********************************************************************* 

* 

CALCULATE  THE  PROPORTIES  AT  POINT  P2  FOR  THE  CHARA  -  * 

* 

********************************************************************* 

CALL  THERMO  (Q2  ,  P2  ,  R2  ,  T,  C, M) 

LM  =  TAN (A2 -ASIN ( 1 . /M) ) 

WRITE (6,*) 'LM  =  ' , LM 

QM  =  GC*SQRT (M**2 -1 . ) / (R2*Q2**2) 

SM  =  DELTA*SIN(A2) / (Y2*M*COS (A2 -ASIN (l./M) ) ) 

********************************************************************* 

* 

GUESS  THE  STREAMLINE  ANGLE  FOR  P5  * 

* 

********************************************************************* 


A5  =  0.5* (A1+A3 ) 

A4  =  A5 

********************************************************************* 

* 

PROJECT  CHARACTERSITIC  LINE  AND  FIND  UNKNOWN  POINT  P4  * 

* 

********************************************************************* 

X4  =  (Y1-Y2 -LP*X1+LM*X2 ) / (LM-LP) 

Y4  =  Yl+LP* (X4-X1) 

WRITE ( 6  ,  * ) ' X4 , Y4  =  ',X4,Y4 

IF ( Y4 . LT . 0 . 0 ) RETURN 

TP  =  -SP* (X4-X1) +QP*P1+A1 

TM  =  -SM* (X4-X2) +QM*P2-A2 

K  =  1 

********************************************************************* 

* 

INTERPOLATE  BACK  FROM  POINT  4  ALONG  THE  STREAM  LINE  TO  FIND  * 

POINT  3  (THE  POINT  BETWEEN  1  AND  2) ,  ANGLE  OF  STREAMLINE  * 

* 

********************************************************************* 

L0  =  TAN (0.5* (A5+A4 ) ) 

********************************************************************* 

* 

CALCULATE  POINT  P5  PROPERTIES  * 

* 
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C* ********************************************************************** 

c* 

IF (X1.NE.X3) THEN 
C . . . intercept 

X5  =  (Y4-Y1-L0*X4+L13*X1) / (L13-L0) 

Y5  =  Y4+L0* (X5-X4) 
c  WRITE (6, *) 'X5, Y5=  ' ,X5,Y5 

c. . .  location  ratio  between  points  1  and  3 


D  = 

(Y5-Y1) / (Y3-Y1) 

linear 

interp  for  angle  5 

A5  = 

Al+D*  (A3  -Al) 

ELSE 

Jon  wall 

X5  = 

XI 

Y5  = 

Y1 

D  = 

0.0 

A5  = 

Al 

END  IF 

IF (ITER.EQ. 0) A4=A5 

IF (K . GT . 1  .AND.  ABS (Y5 -YC) . LT . ERROR)  GOTO  30 
C. . .ERROR  in  decode 

I F ( K . GT .101) THEN 

WRITE (6,*)'  ERROR:  CAN  NOT  DECODE  FLOW  ANGLE!1 

WRITE (6, *) 1 Y5  = 1 , Y5 

WRITE (6, *) ' YC  = 1 , YC 

WRITE (6, *) ' Y5-YC  ='/Y5-YC 

WRITE (6, *) 1  1 

WRITE ( 6  ,  * ) 1 XI , Y1  =  ' ,X1,Y1 
WRITE ( 6  ,  * ) 1  X2  ,  Y2  =  '  ,  X2  ,  Y2 
WRITE  ( 6  ,  * )  1  X3  ,  Y3  =  1  ,  X3  ,  Y3 
WRITE ( 6 , * ) 1 X4 , Y4  =  ' , X4 , Y4 


STOP 


END  IF 

XC  = 

X5 

YC  = 

Y5 

K  = 

K  +  1 

GOTO 

20 

Q5  = 

Ql+D* (Q3-Q1) 

P5  = 

Pl+D* (P3-P1) 

R5  = 

Rl+D* (R3-R1) 

C* 

C*  ********************************************************************** 

C*  * 

C*  CALCULATE  POINT  P4  PROPERTIES  * 

C*  * 

C*  ********************************************************************** 
C* 


40 


IF  ( 

ITER. GT. 0) GOTO  40 

Q4 

= 

Q5 

P4 

= 

P5 

R4 

= 

R5 

P0 

_ 

0.5* (P5+P4 ) 

R8 

= 

0.5* (R5+R4 ) 

Q0 

= 

0.5* (Q5+Q4 ) 

R0 

= 

R8*Q0/GC 

CALL 

THERMO  (Q0,P0,R 

A0 

- 

C**2/GC 

T01 

=: 

R0*Q5+P5 

T02 

= 

P5-A0*R5 

P4 

- 

(TP+TM) / (QP+QM) 

A4 

= 

TP-QP*P4 

Q4 

= 

(T01-P4) /R0 

R4 

= 

(P4-T02) /A0 

C* 

c*  * 

c*  TEST  FOR  CONVERGENCE  * 

C*  * 
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c* 


c 

WRITE (6, *) '  ' 

c 

WRITE (6, 100) 1 

R0 

= 

1  ,  R0 

c 

WRITE (6, 100) ' 

A0 

= 

'  ,  A0 

c 

WRITE (6, 100) ' 

T01 

= 

'  ,  T01 

c 

WRITE (6, 100) 1 

T02 

= 

■  ,T02 

c 

WRITE (6, 100) ' 

Q+ 

= 

'  /  QP 

c 

WRITE (6, 100) ' 

S  + 

= 

'  ,  SP 

c 

WRITE (6, 100) ' 

T  + 

= 

■  ,  TP 

c 

WRITE (6, 100) ' 

Q- 

= 

1  /  QM 

c 

WRITE (6, 100) ' 

S- 

= 

'  ,  SM 

c 

WRITE (6, 100) 1 

T- 

= 

■  ,  TM 

C. . .  First  time  thru,  skip  the  convergence  test 
IF (ITER.EQ. 0)  GOTO  50 


C.  .  . 


Reached  the  number  of  times  on  the  correction 


IF (ITER.EQ. ICOR) THEN 
WRITE ( 6 , * ) 1  ' 

WRITE ( 6 , * ) 1  Stopping  the  code:', 

>  1  Reached  the  ICOR  user  set  limit!1 


WRITE (6, *) ' 
WRITE  (6, *)  ' 
WRITE  (6, *)  1 
WRITE  (6, *)  ' 
WRITE  (6, *)  ' 
WRITE  (6, *)  ' 
STOP 
END  IF 


ABS (X4-XD) ,E1' , ABS (X4-XD) ,E1 
ABS (Y4-YD)  , El 1  ,ABS (Y4-YD)  ,  El 
ABS (P4-PD)  , E2  *PD 1 ,ABS (P4-PD)  ,E2*PD 
ABS (R4-RD)  , E3  *RD 1 ,ABS (R4-RD)  ,E3*RD 
ABS (Q4-QD) ,E4*QD' ,ABS (Q4-QD) ,E4*QD 
ABS (A4-AD) , E5*AD 1 ,ABS (A4-AD) ,E5*AD 


IF ( (ABS (X4-XD) .GT.E1)  .OR.  (ABS (Y4 - YD) . GT . El) )  GOTO  50 

IF ( (ABS (P4-PD) .GT.E2*PD)  .OR.  (ABS (R4 -RD) . GT . E3 *RD) )  GOTO  50 


IF ( (ABS (Q4-QD) .LT.E4*QD)  .AND.  (ABS (A4 -AD) . LT . E5*AD) )  RETURN 
C* 

C* ********************************************************************** 

c*  * 

C*  CALCULATE  THE  COEFFICIENTS  FOR  THE  CORRECTOR  * 

C*  * 

c* ********************************************************************** 
c* 

50  ITER  =  ITER  +  1 

XD  =  X4 
YD  =  Y4 
PD  =  P4 
RD  =  R4 
QD  =  Q4 
AD  =  A4 


P0  =  0.5*  (P1  +  P4 ) 
R8  =  0.5* (R1+R4 ) 
Q0  =  0.5*  (Q1+Q4 ) 
A0  =  0.5* (A1+A4 ) 
Y0  =  0.5* ( Y1+Y4 ) 


CALL  THERMO  (Q0 , P0 , R8 , T, C, M) 

LP  =  TAN (A0+ASIN (1 . 0/M) ) 

QP  =  GC*SQRT (M**2 - 1 . 0 ) / (R8*Q0**2) 

P0  =  0.5*  (P1  +  P4 ) 

R8  =  0.5* (R1+R4 ) 

SP  =  DELTA*SIN (A0) / (Y0*M*COS (A0+ASIN (1 . 0/M) ) ) 

Q0  =  0 . 5*  (Q2+Q4) 

A0  =  0.5* (A2  +A4 ) 

Y0  =  0.5* ( Y2  +Y4 ) 


CALL  THERMO  (Q0 , P0 , R8 , T , C , M) 


LM  =  TAN (A0 -AS IN (1.0/M)) 

QM  =  GC*SQRT (M**2 -1 . 0) / (R8*Q0**2) 


SM  =  DELTA* SIN (A0) / (Y0*M*COS (A0 -AS IN (1 . 0/M) ) ) 


GOTO  10  ! RECALCULATE  POINTS  P4  AND  P5 

C 

C* ********************************************************************** 

C*  * 
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C*  FORMAT  STATEMENTS  * 

C*  * 

C 


100  FORMAT (A, 1P2E15 . 5) 

C* 

C*  * 

C*  END  OF  LINE  * 

C*  * 

C* 


END 

SUBROUTINE  CIRCULAR  FLOWFIELD 


C 

C* ********************************************************************** 
C*  * 

C*  CALCULATE  THE  FLOW  FIELD  FROM  THE  CIRCULAR  ARC  THROAT  CONTOUR  * 

C*  * 

C* ********************************************************************** 

C 

C 


c*  * 

C*  TERMINOLOGY  FOR  SUPERSONIC  FLOW  METHOD  OF  CHARACTERISTICS  * 

C*  * 

C*  CONTROL  VARIABLE:  * 

C*  -  * 

C*  * 

C*  DELTA  =  'O'  FOR  PLANER  FLOW  * 

C*  =  '1'  AXISYMMETRIC  FLOW  * 

C*  ICOR  =  NUMBER  OF  APPLICATIONS  OF  THE  CORRECTOR  DESIRED  * 

C*  El  =  CONVERGENCE  TOLERANCE  FOR  LOCATION,  M  (IN)  * 

C*  E2  =  CONVERGENCE  TOLERANCE  FOR  VELOCITY,  M/S  (FT/SEC)  * 

C*  GC  =1.0  M-KG/N- S^2  OR  32.174  FT-LBM/LBF-S^2  * 

C*  GL  =1.0  M^2/M^2  OR  144.0  IN^2/FT^2  * 

C*  ST  =0.0  EVEN  SPACE  STARTLINE,  1.0  QUADRATIC  SPACED  * 

C*  * 

C*  GAS  THERMODYNAMIC  PROPERTIES  &  STAGNATION  PROPERTIES:  * 

C*  -  * 

c*  * 


c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c 


c 


G 

RG 

TS 

PS 

PA 


RATIO  OF  SPECIFIC  HEATS 
GAS  CONSTANT,  J/KG-K  (FT-LBF/LBM-R) 
STAGNATION  TEMPERATURE,  K  (R) 
STAGNATION  PRESSURE,  N/M^2  (LBF/IN^2) 
AMBIENT  PRESSURE,  N/M^2  (LBF/IN^2) 


FLOW  FIELD  PROPERTIES: 


X 

Y 
U 

V 
Q 
A 
P 
R 
T 
C 
M 

EMD 

1/2,3, 


AXIAL  COORDINATE,  M  (IN) 

RADIAL  COORDINATE,  M  (IN) 

AXIAL  VELOCITY,  M/S  (FT/S) 

RADIAL  VELOCITY,  M/S  (FT/S) 
VELOCITY  MAGNITUDE,  M/W  (FT/S) 
FLOW  ANGLE,  RAD 

STATIC  PRESSURE,  N/M^2  (LBF/IN^2) 
STATIC  DENSITY,  KG/M^3  (LBM/FT^3 ) 
STATIC  TEMPERATURE,  K  (R) 

SPEED  OF  SOUND,  M/S  (FT/S) 

MACH  NUMBER 

DESIGN  MACH  NUMBER 

DENOTES  PROPERTIES  AT  POINTS 


TERMINOLOGY  EMPLOYED: 


L 

Q 

R 

S 

T 

+  /- 


TAN ( THETA + -ALPHA) 

(Ua2-C*2),  M"2/S"2  (FT"2/S"2) 

2UV-L (U^2 -C^2 )  M"2/S"2  (FT^2/S^2) 

DELTA*C^2 *V/Y,  M^2/S^3  (FT^2/ SEC ^3  - IN) 

S*DEL (X) +Q*U+R*V,  M^3/S^3  (FT^3/S^3) 

DENOTES  +  OR  -  CHARACTERISTIC  CURVE 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


********************************************************************** 


INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 


***************************** 


C** 


** 
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c* 

c* 

c* 

c 


c 

c* 

c* 

c* 

c* 

c* 

c 


c 

c* 

c* 

c* 

c* 

c* 

c 


c 

c* 

c* 

c* 

c* 

c* 

c* 

c 


c 

c* 

c* 

c* 

c* 

c* 

c 


c 

c* 

c* 

c* 

c* 

c* 

c 


c 

c 

c 

c 

c* 


*  Function  Statements  ** 

*  ** 
********************************************************************* 

TM (B)  =  B  /  TZERO 

ZMUIFD(B)  =  ZMZERO*TM(B) **1.5* ( (1.+C0NSU) / (TM(B) +CONSU) ) 

RE  (B)  =  R  (1)  *  Q  (1)  *  X(l)  /  ZMUIFD(B) 

BL (B)  =  RE (B) **  (1./8  .  ) 

********************************************************************** 

* 

OUTPUT  THE  HEADER  * 

* 

********************************************************************** 

WRITE (6,*)'  1 

ASTR  =  'CALCULATE  THE  FLOW  FIELD  FROM  THE  CIRCULAR  ARC  THROAT  CONTOUR' 
CALL  BANNER (ASTR) 

********************************************************************** 

* 

INITIALIZE  THE  CONSTANTS  * 

* 

********************************************************************** 


II  =  NI  +  1  ! starting  i  index 

IK  =  II  +  NT  -  1  lending  i  index 

IMAX  =  IK 

J2  =  2*NI-1  Ithis  is  true  from  here  on  out,  reanforce  it. 

L  =0 

III  =  NI  +  NT 
I END  =  0 

KW  =  1 


********************************************************************** 

* 

SET  THE  STOPING  POINT  FOR  THE  CALCULATION  WITH  THE  CIRCULAR  ARC  * 
WALL .  * 

* 

********************************************************************** 

TA  =  AA  /  RAD 
XA  =  RTD  *  SIN (TA) 

YA  =  YT+RTD* (1. -COS (TA) ) 

WRITE (6,*)'  ' 

WRITE ( 6 , * ) '  STOPPING  POINT  (XA, YA) ' ,  XA, YA 
WRITE (6,*)'  ' 

********************************************************************** 

* 

BEGIAN  THE  LOOPING  OVER  EACH  MARCHING  I  INDEX  * 

* 

********************************************************************** 


DO  I  =  II  ,  IK 

N  =0 
MFRT  =  0 
WRITE  (8,*)'  ' 

WRITE  (6,*)'  ' 

CALL  BANNER (ASTR) 

WRITE  (6, 1010) 

********************************************************************** 

* 

FIND  THE  STARTING  WALL  POINT  TO  BEGIN  THE  DOWNWARD  CALCULATION  * 

* 

********************************************************************** 
DA  =  AA/ ( NT  * 1 . *  RAD ) 

A4  =  DA* (1*1. -NI*1.)  ! FLOW  AND  WALL  ANGLE 

X4  =  RTD*SIN(A4) 

Y4  =  YT  +  RTD* (1. O-COS (A4) ) 

L0  =  -X4/ (Y4- (RTD+YT) ) 

WRITE (6,*)'  DA  =  ' , DA* RAD 
WRITE (6,*)'  (X4,Y4)  =  ' , X4 , Y4 

WRITE (6, *) '  L0  =  ' ,L0 

********************************************************************** 
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C*  * 
C*  IF  THIS  POINT  IS  PAST  THE  ATTACHMENT  POINT  THEN  RESET  TO  THE  * 
C*  ATTCHMENT  POINT  AND  CONTINUE  * 
C*  * 


C*  ********************************************************************** 

C 

IF (X4 . GT . XA  .OR.  Y4 . GT . YA) THEN 
X4  =  XA 
Y4  =  YA 
END  IF 


91  CONTINUE 
C 

C* ********************************************************************** 

C*  * 

C*  BEGIN  MARCHING  FROM  THE  WALL  TO  THE  CENTERLINE,  J  INDEX  * 

C*  * 

C* ********************************************************************** 

C 

DO  160  J  =  1  ,  J2+1 


J3  =  J 


IF (J.EQ. 1) THEN  ! On  the  wall 

J2  =  J2  +  1 
N  =  N  +  1 

CALL  MOVE ( 3 , N )  JMove  the  first  point  into  P3 

CALL  MOVE (1 , N+l)  JMove  the  second  point  into  PI 

CALL  INVERSE  WALL  POINT 


IF (X2 .GT.X1) THEN 
C  L  =  L  +  1 

J2  =  J2  -  2 
GOTO  91 
END  IF 

ELSEIF (J.EQ. J2) THEN  ! on  centerline 
CALL  MOVE ( 1 , J - 1 )  Jmove  the  upper  point  into  point  1 

CALL  MOVE (6,0)  Jmove  the  old  P2  point  from  INTERIOR  POINT  into  P3 


2 

2 


END  IF 


CALL  AXIS 


ELSE 


CALL  INTERIOR  POINT 


Jon  interior  point 


CALL 

MOVE 

(i, j-i) 

Jmove 

the 

c 

CALL 

MOVE 

(2,  J) 

Jmove 

the 

CALL 

MOVE 

(2, J+N-l) 

Jmove 

the 

CALL  MOVE (5, J) 


I  save  point  4  into  current  array 


C 

c* 

c* 

c* 

c* 

c* 


******************************************************************** 

CALCULATE  THE  MASS  FLOW  RATE 

******************************************************************** 


* 


* 


* 

* 

* 

* 

* 


C 


I F ( J . EQ . 1 ) THEN 


AREA  X 

- 

0.0 

AREA  Y 

= 

0.0 

DEL  X 

= 

0.0 

DEL  Y 

= 

0.0 

R  AVE 

= 

0.0 

U  AVE 

= 

0.0 

V  AVE 
ELSE 

= 

0.0 

DEL  X 

= 

ABS (X4 -X ( J- 1) ) 

DEL  Y 

= 

ABS ( (Y4**2  -  Y ( J- 1) **2  ) ) *DELTA  +  (1-DELTA) 

*ABS  (Y4  -  Y  ( J- 1)  ) 

AREA  X 

= 

PI  *  DEL  Y  *  DELTA  +  (1-DELTA) *DEL  Y 

AREA  Y 

= 

2.0  *  PI  *  ( Y4  +  Y(J-l) ) /2 . 0*DEL  X*DELTA  + 

(1 -DELTA) *DEL_X 

R  AVE 

= 

(R4  +  R(J-l) )/2.0 

U  AVE 

= 

(U4  +  U(J-l) )/2.0 

V  AVE 
END  IF 

= 

(V4  +  V(J-l) )/2.0 

MFR  =  RAVE* (UAVE* AREAX+VAVE* AREAY ) 

MFRT  =  MFR  +  MFRT 

ERRORM  =  (MFRT-MDOT) /MDOT 


AP  =  A4  *  RAD 
PP  =  P4/GL 
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LJ  =  L  +  J 
C* 

C*  ********************************************************************* * 

C*  * 

C*  OUTPUT  THE  FLOW  VARIABLES  * 

C*  * 

C*  ********************************************************************** 

c* 

IF  (KW.EQ. 1) THEN 

WRITE (6, 1020) I/LJ/X4/ Y4/U4/V4/M4/Q4/AP/PP/R4/T4 
WRITE (8,1020)1, LJ, X4 , Y4 , U4 , V4 , M4 , Q4 , AP , PP ,  R4 , T4 
IF (J.EQ. 1) WRITE (3,1020) I ,  J, X4 ,  Y4 , U4 , V4 , M4 , Q4 , AP , PP , R4 , T4 

IF ( J . EQ . 1) WRITE (32,1020) I , J, X4 , Y4 , TM (T4 ) ,ZMUIFD(T4) ,RE(T4) ,BL(T4) , Y4+BL_SCALE*0 . 1404* ( (1.+X4) **0. 
125-1.0) 

IF (J.EQ. J2+1) WRITE (4,1020) I,J,X4,Y4,U4, V4 , M4 , Q4 , AP , PP , R4 , T4 
IF (J.EQ. J2) write (6, *) '  MASS  FLUX  =  1 , MFRT , 

>  1  PERCENT  ERROR  =  1 , ERROR_M*100 . 

END  IF 

C* 

C*  ********************************************************************** 

C*  * 

C*  PLACE  THE  FLOW  VARIABLES  INTO  STORAGE  * 

C*  * 

C*  ********************************************************************** 

C* 

X  Y  ( I ,  J ,  1 )  =  X4 

X  Y  ( I ,  J ,  2 )  =  Y4 

IF (J.GT. 1) THEN 
IF (  Y4.GE.XY(I, J-1,2) ) THEN 
WRITE (6, *) 'Error  in  Y! ' ,  J,J-1 
END  IF 
END  IF 


1) 

= 

U4 

2) 

= 

V4 

3) 

= 

M4 

4) 

= 

Q4 

5) 

= 

A4 

6) 

= 

P4 

7) 

= 

R4 

8) 

= 

T4 

C* 


JMAX  =  MAX  ( J ,  JMAX ) 

IF (X4 . GT . XE)  GOTO  170 
IF (X4 .GT.XE) THEN 
EXIT_END= . TRUE . 
RETURN 
END  IF 


C*  ********************************************************************** 

c*  * 

C*  END  OF  J  INDEX  LOOP  * 

C*  * 

c*  ********************************************************************** 
c* 

160  CONTINUE 
C* 

C*  ********************************************************************** 

C*  * 

c*  AT  the  end  of  each  j  index  loop  we  need  to  check  if  the  * 

C*  CENTERLINE  MACH  NUMBER  HAS  REACHED  THE  DESIGNED  MACH  NUMBER.  * 

C*  * 

c*  ********************************************************************** 
c* 

IF (NOZ . EQ . 0  .AND.  Y4 . EQ . 0 . 0  .AND.  M4 . GE . EMD) THEN 


J  =  J  -  1 
J_START  = 
J_END 

LOFFSET  = 
I  LINE 


C. . .  need  to  backspace  the  plot  files 
BACKSPACE (3) 

write (6,*) 1 I_LINE, JEND  = 1 , ILINE, JEND 

DO  LL  =  1  ,  J 
BACKSPACE (8) 

ENDDO 
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DO  LL  =  1  ,  J 
WRITE (8, *)  1  1 

ENDDO 
C* 

C* ********************************************************************** 

c*  * 

C*  FIND  THE  LOCATION  WHERE  MACH  NUMBER  =  DESIGNED  MACH  NUMBER  * 

C*  * 

c* ********************************************************************** 
c* 

CALL  MLINE ( J_START, JEND, I_LINE, L_OFFSET, 8) 

IMAX  =  I 
J  =J  +1 

DESIGNED_M= . TRUE . 

RETURN 

END  IF 
C 

C* ********************************************************************** 

C*  * 

C*  MAKE  SOME  CORRECTIONS  * 

C*  * 

C* ********************************************************************** 

C 

IF(IEND.EQ.l)  J2=  J2 -  1 
GOTO  180 

cl 70  CONTINUE 

c  J2=  J  -  1 

c  I END  =  1 


180  CONTINUE 
C 

C* ********************************************************************** 

C*  * 

C*  SMOOTH  THE  PROFILE  * 

C*  * 

C* ********************************************************************** 

C 

IF (SMOOTH) THEN 
DO  LL  =  1  ,  J 
BACKSPACE (8) 

ENDDO 

J_START  =  1 

J_END  =  J2 
LOFFSET  =  L 
I_LINE  =  I 
I_FILE  =  8 

CALL  SMOOTHPROFILE ( JSTART, JEND, I_LINE, LOFFSET, I_FILE) 

END  IF 
C 

C* ********************************************************************** 

C*  * 

C*  END  OF  I  INDEX  LOOP  * 

C*  * 

C* ********************************************************************** 

C 

ENDDO 


C 

C**** 

c* 

c* 

c* 

c**** 

c 


******************************************************************* 

* 

SMOOTH  THE  PROFILE  * 

* 

******************************************************************* 


C  IF (SMOOTH) THEN 

C  DO  LL  =  1  ,  J 

c  BACKSPACE (8) 


C  ENDDO 

C  JSTART  =  1 

C  JEND  =  J2 

C  L_OFFSET  =  L 

C  I_LINE  =  IK 

C  I  FILE  =  8 


C  CALL  SMOOTHPROFILE ( JSTART , JEND , I_LINE , LOFFSET , I_FILE) 

C  END IF 
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c 

C 

c**** 

c* 

c* 

c* 

c**** 

c 

clOlO 

c 

1010 

1020 


C 

c**** 

c* 

c* 

c* 

c**** 

c 


c 

c**** 

C** 

C** 

c** 

C** 

C** 

c** 

c**** 

c* 


c* 

c**** 

c* 

c* 

c* 

c**** 

c* 


c* 

c**** 

c* 

c* 

c* 

c**** 

c* 


c* 

c**** 

c* 

c* 

c* 

c**** 

c* 


c* 

c**** 

c* 

c* 


WRITE (3,1010) 

WRITE (4,1010) 

******************************************************************* 

* 

FORMAT  STATEMENTS  * 

* 

******************************************************************* 


FORMAT (5X,  1  1 1 , 4X,  1 J 1 , 6X,  1 X 1 , 9X 1 Y 1 , 9X,  1 U1 , 9X,  1 V1 , 9X,  1 M1 , 9X,  1 Q 1 , 

>9X, 'A' ,9X, 'P' , 12X, 'R‘ , 12X, 'T' ,/) 

FORMAT (/,'  I  J','  X  Y  U  VELOCITY  ',  ' 

> 1  MACH  NUMBER  ',  'VELOCITY  MAG '  ,  '  FLOW  ANGLE  PRESSURE  DENSITY 

FORMAT (215, 1P10E12 .4) 

RETURN 

******************************************************************* 

* 

END  OF  LINE  * 

* 

******************************************************************* 

END 

SUBROUTINE  IVSTART 

****************************************************************** 

** 

SUBROUTINE  IVSTART  DETERMINES  AN  INITIAL  VALUE  LINE  USING  ** 

USER  DEFINED  INPUT  START  LINE.  ** 

** 

*****PROFILE  must  start  at  centerline  and  move  up  to  wall****  ** 

** 

****************************************************************** 

* 

INCLUDE  ' MOC . PAR ' 

INCLUDE  1 MOC . CMN 1 

DIMENSION  X8 (NX) , Y8 (NX) , U8 (NX) ,V8 (NX) ,P8 (NX) ,RH08 (NX) 

DIMENSION  X9 (NX) ,Y9 (NX) ,U9 (NX) ,V9 (NX) ,P9 (NX) ,RH09 (NX) ,A9 (NX) ,Q9 (NX) 
DIMENSION  VT (NX) , ANGLE (NX) 


******************************************************************* 

* 

FUNCTION  STATEMENTS  -  INPUT  IS  VELOCITY  * 

* 

******************************************************************* 

TT (X)  =  TS  -  X*X/ (2 . 0*GC*CP)  ! static  temperature 

AM (X)  =  X  /  SQRT (G*GC*RG*TT (X) )  !mach  number 

PP(X)  =  PS  *  (TT(X) /TS) ** (G/ (G-1.0) )  Istatic  pressure 
RR (X)  =  PP(X)  /  RG  /  TT (X)  Istatic  density 

******************************************************************* 

* 

SET  CONSTANTS  * 

* 

******************************************************************* 

DEBUG  =  .TRUE. 

I  =0 

MDOT  =  0.0 

PI  =  4.0  *  AT AN (1.0) 

RAD  =  1 8  0 . / 4 . 0 / AT AN (1.0) 

NUM_POINTS  =  NI 
YY  =0.0 

******************************************************************* 

* 

OUTPUT  STATEMENTS  * 

* 

******************************************************************* 
WRITE (6, *) '  ' 

ASTR  =  'READ  IN  THE  INITIAL  VALUE  LINE  FROM  FILE:  Profile.dat' 

CALL  BANNER (ASTR) 

******************************************************************* 

* 

OPEN  INPUT  FILE  * 


VELOCITY  ' , 

' , '  TEMPERATURE ■ ) 


H-33 


C*  * 

C* ********************************************************************** 

c* 

INQUIRE (FILE= 1  Profile . dat ' , EXIST=EXIST) 

IF  (.NOT. EXIST)  THEN 
WRITE (*,13)  FILEN 
STOP 
END  IF 


OPEN (UNIT=2 , FILE= 1  Profile . dat ' , f orm= 1  formatted 1 ) 


C* 

C** 

C* 

C* 

C* 

C** 

C* 


********************************************************************* 

* 

READ  IN  THE  INPUT  FILE  * 

* 

********************************************************************* 


IC  =  0 


DO  N  =  1  ,10000 

read (2, *,end=100) i, j ,k,X8 (N) ,Y8 (N) ,Z8,rho8 (N) ,U8 (N) ,V8 (N) ,W8,P8 (N) 
IF(N.EQ.l) Y8 (1)  =  0.0 
IF (N. EQ . 1) V8 (1)  =  0.0 

c  write (6, 200) X8 (N) ,Y8 (N) ,Z8,rho8 (N) ,U8 (N) ,V8 (N) ,W8,P8 (N) 

IC  =  IC  +  1 
ENDDO 

100  continue 


CLOSE (2) 

DY  =  Y8 (IC)  /  (NUM_POINTS*l . - 1 . )  ! Spacing 

C* 

C* ********************************************************************** 

C*  * 

C*  SMOOTH  THE  PROFILE  AND  FIND  FLOW  PROPORTIES  * 

C*  * 

C* ********************************************************************** 

C* 

DO  J  =  1  ,  NUMPOINTS 

IF(J.NE.l) YY=  YY  +  DY 

CALL  HUNT (Y8, IC, YY, JLO) 

IF(JLO.LT.l) JLO  =  1 
IF(JLO.GE.IC) JLO  =  IC  -  1 

I F ( J . EQ . 1 ) THEN 
ZETA  =  0.0 

ELSE 

ZETA  =  (YY-Y8 (JLO) )  /  (Y8 ( JLO+1)  -  Y8 ( JLO) ) 

END  IF 

IF (ZETA. LT . 0 .0) ZETA=0 . 0 
c  write (6,*) 'JLO, ZETA' , JLO, ZETA 

Y9 (J)  =  YY 

X9 ( J)  =  (1. -ZETA) *X8 (JLO)  +  ZETA*X8 (JLO+1)  -  X8 (IC) 

IF(X9(J)  .  LT  .  0 . 0 )  X9  ( J)  =  0.0 

RH09 ( J)  =  (1. -ZETA) *RH08 (JLO)  +  ZETA*RH08 (JLO+1) 

U9 ( J)  =  (1. -ZETA) *U8 (JLO)  +  ZETA*U8 (JLO+1) 

V9 ( J)  =  (1. -ZETA) *V8 (JLO)  +  ZETA*V8 (JLO+1) 

P9 ( J)  =  (1. -ZETA) *P8 (JLO)  +  ZETA*P8 (JLO+1) 

Q9 ( J)  =  SQRT (u9 ( J) **2  +  V9(J)**2) 

A9 ( j )  =  ATAN (V9 ( J) /U9 ( J) ) 

c  write (6, 1020) J, J,X9 (J) , Y9 (J) ,U9 (J) ,V9 (J) ,Q9 (J) ,A9 (J) *RAD,P9 (J) ,RH09 (J) 

ENDDO 

C* 

C* ********************************************************************** 

C*  * 

C*  SMOOTH  THE  PROFILE  AND  FIND  FLOW  PROPORTIES  * 

C*  * 

C* ********************************************************************** 

C* 

1  =  0 

WRITE (6, 1000) 

DO  J  =  2  *NI  ,  3*NI-1 
1  =  1  +  1 


H-34 


X(J) 

= 

X9  (I) 

Y(J) 

= 

Y9  (I) 

U(J) 

= 

U9  (I) 

V(J) 

= 

V9  (I) 

Q  ( J) 

= 

Q9(I) 

A(J) 

= 

A9  (I) 

P(J) 

= 

P9  (I) 

R(J) 

= 

RH09 (I) 

c* 

C* ************************************************ 

c* 

C*  FIND  AREA  -  Correct  for  planar/axi symmetric 
C*  DELTA  =  0  for  planar,  1  for  axisymmetric 

C* 

C* ************************************************ 

C* 

IF (J.NE.2*NI) THEN 

AREA  =  PI  *  (Y ( J) **2  -  Y(J-1)**2)  *  DELTA 

ELSE 

AREA  =  0.0 
END  IF 

R_AVE  =  (R ( J)  +  R(J-l) ) /2.0 
U_AVE  =  (U(J)  +  U(J-l))/2.0 
MDOT  =  MDOT  +  R_AVE  *  U_AVE  *  AREA 
C  WRITE ( 6 , * ) ' R_AVE , U_AVE , AREA ' , R_AVE , U_AVE , AREA , MDOT 

F  =  F  + ( (P ( J)  -PA) +  RAVE  * U_AVE  *  *  2 / GC ) *AREA 

Q1  =  Q ( J) 

PI  =  P(J) 

R1  =  R  ( J) 


********************** 


flow 


********************** 


+  (1-DELTA) * (Y(J) -Y(J-l) ) 


CALL  THERMO  (Q1 , PI , R1 , T , C , M) 

JJ  =  NI-I+1  !  axial  index 

c* 

C*  ********************************************************************** 

C*  * 

C*  OUTPUT  THE  FLOW  VARIABLES  * 

C*  * 

c*  ********************************************************************* * 

c* 

WRITE  (6,2001)  I,JJ,X(J)  ,Y(J)  ,U(J)  ,V(J)  ,M,Q(J)  ,A(J)  *RAD,P(J)  ,R(J)  ,T 
WRITE  (13,2  001)  I,  JJ,X(J)  ,Y(J)  ,U(J)  ,V(J)  ,M,Q(J)  ,A(J)  *RAD,P(J)  ,R(J)  ,T 

C* 

C*  ********************************************************************** 

C*  * 

C*  PLACE  THE  FLOW  VARIABLES  INTO  STORAGE  * 

C*  * 

c*  ********************************************************************* * 

c* 


X  Y  ( I ,  J ,  1) 

= 

X(J) 

XY ( I , J , 2 ) 

= 

Y  ( J) 

FLOW(I, J, 1) 

= 

U(J) 

FLOW (I, J, 2) 

= 

V(J) 

FLOW (I, J, 3) 

= 

M 

FLOW (I, J, 4) 

= 

Q  ( J) 

FLOW (I, J, 5) 

= 

A  ( J) 

FLOW (I, J, 6) 

= 

P(J) 

FLOW (I, J, 7) 

= 

R(J) 

FLOW (I, J, 8) 

= 

T 

ENDDO 

C* 

C*  ********************************************************************* * 

c*  * 

C*  FIND  MASS  FLOW  AND  FORCE  * 

C*  * 

c*  ********************************************************************** 
c* 

YT  =  Y(3*NI-1) 

AT  =  PI*YT*YT/GL*DELTA  +  ( 1 -DELTA) *YT 

AS  =  SQRT (2 . 0*G*GC*RG*TS/ (G+l . 0) ) 

MDOTS  =  AS*RR (AS) *AT 

FS  =  PP (AS) *AT+MDOTS*AS/GC 

FOD  =  FS - PA*AT 

CD  =  MDOT/MDOTS 

ETAF  =  F/FOD 

ETAI  =  ETAF/CD 
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WRITE  (6,*)'  1 

WRITE (6,2002) MDOT , MDOTS , CD , F , FOD , ETAF , ETAI 

C 

C* ********************************************************************** 

C*  * 

C*  MAKE  GNU  PLOT  FOR  VIEWING  DATA  * 

C*  * 

C* ********************************************************************** 

C 

IF (DEBUG) THEN 

WRITE  (6, *)  1  ' 

OPEN (UNIT=55 , FILE= 1 STARTINGCONDITIONS . dem 1 , FORM= 1  FORMATTED  1 ) 

WRITE (55, 500) 

500  FORMAT ( 1 #  GNUPLOT  v3 . 6  beta  multiplot  script  file1,/, 

> 1  set  terminal  pdf  enhanced  color  font  "Helvetica"  fsize  8  size  10.5  in,  8.0  in1,/, 
> 1  set  output  " STARTING  CONDITIONS . pdf " ' , / , 

>'set  key  left  top  box1,/, 

> 1  set  border1 , /, 

> 1  set  grid ■  ,  / , 


> '  set 

style 

line 

1 

It 

rgb 

"black" 

lw 

1 

pt 

1 

ps 

1 ' 

,/ 

> '  set 

style 

line 

2 

It 

rgb 

"red" 

lw 

1 

pt 

2 

ps 

1' 

,/ 

> '  set 

style 

line 

3 

It 

rgb 

"green" 

lw 

1 

pt 

3 

ps 

1' 

,/ 

> '  set 

style 

line 

4 

It 

rgb 

"blue" 

lw 

1 

pt 

4 

ps 

1 ' 

,/ 

> '  set 

style 

line 

5 

It 

rgb 

"orange" 

lw 

1 

pt 

5 

ps 

1' 

,/ 

> '  set 

style 

line 

6 

It 

rgb 

"yellow" 

lw 

1 

pt 

6 

ps 

1' 

,/ 

> 1  show  terminal  ',/, 

> 1 #set  title  "STARTING  NOZZLE  FLOW  CONDITIONS"',/, 

> 1  set  ylabel  "Radial  Length"',/, 

>'set  autoscale  x',/, 

>'set  autoscale  y',/, 

> ' set  multiplot  layout  2,  1  title  "STARTING  NOZZLE  FLOW  CONDITIONS"',/, 

>'set  size  0.5, 0.5',/, 

>'set  origin  0,0',/, 'set  xlabel  "Density  (kg/m^3 ) " ' , / , 

>'plot  [:]  [:]  "fort. 7"  using  11:4  with  lines  title  "Post-Processed"  Is  1,  ', 

> ' "Prof ile . dat "  using  7:5  with  lines  title  "Pre-Processed"  Is  2',/, 

>'set  size  0.5, 0.5',/, 

>'set  origin  0 , 0 . 49 ' , / , ' set  xlabel  "Pressure  (Pa)"',/, 

>'plot  [:]  [:]  "fort. 7"  using  10:4  with  lines  title  "Post-Processed"  Is  1,  ', 

>' "Prof ile . dat "  using  11:5  with  lines  title  "Pre-Processed"  Is  2',/, 

>'set  size  0.5, 0.5',/, 

>'set  origin  0 . 5 , 0 . 49 ' , / , ' set  xlabel  "Temperature  (K)"',/, 

>'plot  [:]  [:]  "fort. 7"  using  12:4  with  lines  title  "Post-Processed"  Is  1,  ', 

>' "Prof ile . dat "  using  12:5  with  lines  title  "Pre-Processed"  Is  2',/, 

>'set  size  0.5, 0.5',/, 

> ' set  origin  0 . 5 , 0 . 0 ■ , / , ■ set  xlabel  "MACH  NUMBER"',/, 

>'plot  [:]  [:]  "fort. 7"  using  7:4  with  lines  title  "Post-Processed"  Is  1,  ', 

>' "Prof ile . dat "  using  13:5  with  lines  title  "Pre-Processed"  Is  2') 

CLOSE  (55) 

WRITE (6,*)'  ' 

WRITE (6,*)'  Type:  gnuplot  STARTINGCONDITIONS . dem  ;  open  STARTING_CONDITIONS.pdf 
END  IF 


C* 

C* 

C* 

C* 

C* 

C* 

C* 


********************************************************************** 

* 

RETURN  TO  MAIN  PROGRAM  * 

* 

********************************************************************** 


RETURN 


C* 

C*  * 

C*  FORMAT  STATEMENTS  * 

C*  * 

C* 


13 

FORMAT (■ ERROR :  File  Profile.dat 

does  not 

exist . 

') 

200 

1010 

FORMAT (1P,8E15.5) 

FORMAT (/,  '  I  J  '  ,  '  X 

1  1 

/ 

Y 

' , '  U  VELOCITY  ' 

,  '  V  VELOCITY  '  , 

1020 

1000 

>' VELOCITY  MAG' , '  FLOW  ANGLE  ' , ' 
FORMAT (215, 1P10E12 .4) 

FORMAT ( '  POINT  ■ , '  X  BAR 

PRESSURE 

1  1 

/ 

■  i 

Y 

DENSITY  ' ) 

' , '  U  VELOCITY  ' , 

'  V  VELOCITY  ' , 

>' MACH  NUMBER  ',  ■ VELOCITY  MAG ', '  FLOW  ANGLE  ','  PRESSURE  ','  DENSITY  ','  TEMPERATURE') 

2001  FORMAT (215, 1P10E12 .4) 

2002  FORMAT (/, IP, 
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> 

9X, 

■Mass  Flow  Rate  = 

■ ,E12 .3 

,/, 

> 

9X, 

■Mass  Flow  Rate  (ID)  = 

■ ,E12 .3 

,/ , 

> 

9X, 

1  Nozzle 

Discharge  Coefficient 

=  1 , E12 . 3 , / , 

> 

/, 

> 

9X, 

1  Thrust 

_  1 

,  E12 . 3 , / , 

> 

9X, 

■  Thrust 

(ID) 

_  1 

,  E12 . 3 , / , 

> 

9X, 

1  Thrust 

ratio  (efficiency)  =  1 

,  E12 . 5 , / , 

> 

9X, 

1  Thrust 

ratio  /  Nozzle 

Discharge  =  ' ,E12.5 

END 


SUBROUTINE  OUTPUT 
INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 


WRITE (6, 100)  1 

MACHLINE  +  ANGLE 

:  =  1 , LP*RAD 

WRITE (6, 100)  ' 
WRITE (6,*)'  ' 

MACHLINE  -  ANGLE 

:  =  1 , LM*  RAD 

WRITE (6, 100)  1 
WRITE (6,*)'  1 

STREAMLINE  ANGLE 

:  =  1 , L  0  *  RAD 

WRITE  (6, 100)  ' 

POINT  1  (X, Y) : 1 , 

XI,  Y1 

WRITE (6, 100)  1 

PRESSURE 

=  ',  PI 

WRITE  (6, 100)  1 

DENSITY 

=  1  ,  R1 

WRITE  (6, 100)  ' 

ANGLE,  Degrees 

= ' , A1*RAD 

WRITE (6, 100)  1 
WRITE  (6,*)'  1 

VELOCITY 

=  '  ,Q1 

WRITE (6, 100)  ' 

POINT  2  (X, Y) : 1 , 

X2  ,  Y2 

WRITE (6, 100)  1 

PRESSURE 

=  1  ,  P2 

WRITE  (6, 100)  ' 

DENSITY 

=  1  ,  R2 

WRITE  (6, 100)  ' 

ANGLE,  Degrees 

=  '  ,  A2  *  RAD 

WRITE (6, 100)  1 
WRITE  (6,*)'  1 

VELOCITY 

=  '  ,Q2 

WRITE  (6, 100)  ' 

POINT  3  (X, Y) : 1 , 

X3 ,  Y3 

WRITE (6, 100)  1 

PRESSURE 

=  ',  P3 

WRITE  (6, 100)  ' 

DENSITY 

=  1  ,  R3 

WRITE (6, 100)  ' 

ANGLE,  Degrees 

=  1  ,  A3  *  RAD 

WRITE (6, 100)  1 
WRITE  (6,*)'  1 

VELOCITY 

=  '  ,Q3 

WRITE (6, 100)  ' 

POINT  4  (X, Y) : 1 , 

X4 ,  Y4 

WRITE (6, 100)  1 

PRESSURE 

=  1  ,  P4 

WRITE  (6, 100)  1 

DENSITY 

=  1  ,  R4 

WRITE  (6, 100)  ' 

ANGLE,  Degrees 

=  '  ,  A4  *  RAD 

WRITE (6, 100)  1 

VELOCITY 

=  '  ,Q4 

100  FORMAT (A, 1P2E15 . 5) 

RETURN 

END 

SUBROUTINE  TURNING  CONTOUR 


C*  * 
C*  TERMINOLOGY  FOR  SUPERSONIC  FLOW  METHOD  OF  CHARACTERISTICS  * 
C*  * 
C*  CONTROL  VARIABLE:  * 

C*  -  * 

C*  * 
C*  DELTA  =  'O'  FOR  PLANER  FLOW  * 
C*  =  '1'  AXISYMMETRIC  FLOW  * 
C*  ICOR  =  NUMBER  OF  APPLICATIONS  OF  THE  CORRECTOR  DESIRED  * 
C*  El  =  CONVERGENCE  TOLERANCE  FOR  LOCATION,  M  (IN)  * 
C*  E2  =  CONVERGENCE  TOLERANCE  FOR  VELOCITY,  M/S  (FT/SEC)  * 
C*  GC  =1.0  M-KG/N- S^2  OR  32.174  FT-LBM/LBF-S^2  * 
C*  GL  =1.0  M^2/M^2  OR  144.0  IN^2/FT^2  * 
C*  ST  =0.0  EVEN  SPACE  STARTLINE,  1.0  QUADRATIC  SPACED  * 
C*  * 
C*  GAS  THERMODYNAMIC  PROPERTIES  &  STAGNATION  PROPERTIES:  * 

C*  -  * 

C*  * 
C*  G  =  RATIO  OF  SPECIFIC  HEATS  * 
C*  RG  =  GAS  CONSTANT,  J/KG-K  (FT-LBF/LBM-R)  * 
C*  TS  =  STAGNATION  TEMPERATURE,  K  (R)  * 
C*  PS  =  STAGNATION  PRESSURE,  N/M^2  (LBF/IN^2)  * 
C*  PA  =  AMBIENT  PRESSURE,  N/M^2  (LBF/IN^2)  * 
C*  * 
C*  FLOW  FIELD  PROPERTIES:  * 

C*  -  * 

C*  * 
C*  X  =  AXIAL  COORDINATE,  M  (IN)  * 
C*  Y  =  RADIAL  COORDINATE,  M  (IN)  * 
C*  U  =  AXIAL  VELOCITY,  M/S  (FT/S)  * 
C*  V  =  RADIAL  VELOCITY,  M/S  (FT/S)  * 
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c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c 


c 

c* 

c* 

c* 

c* 

c* 

c 


c 

c* 

c* 

c* 

c* 

c* 

c 


c 

c* 

c* 

c* 

c* 

c* 

c 

c 


c 

c* 

c* 

c* 

c* 

c* 

c 

c 

c* 

c* 

c* 

c* 

c* 

c 


c 

c* 

c* 

c* 

c* 

c* 

c 

c 


Q 

A 

p 

R 

T 

c 

M 

EMD 

1/2,3, 


VELOCITY  MAGNITUDE,  M/W  (FT/S) 
FLOW  ANGLE ,  RAD 

STATIC  PRESSURE,  N/M^2  (LBF/IN^2) 
STATIC  DENSITY,  KG/M^3  (LBM/FT^3 ) 
STATIC  TEMPERATURE,  K  (R) 

SPEED  OF  SOUND,  M/S  (FT/S) 

MACH  NUMBER 

DESIGN  MACH  NUMBER 

DENOTES  PROPERTIES  AT  POINTS 


TERMINOLOGY  EMPLOYED: 


L  =  TAN (THETA+ -ALPHA) 

Q  =  (U*2-Ca2),  M"2/S"2  (FT"2/S"2) 

R  =  2UV-L (U^2 - C^2 )  M"2/S"2  (FT^2/S^2) 

S  =  DELTA*C^2*V/Y,  M^2/S^3  (FT^2/SEC^3 - IN) 

T  =  S*DEL (X) +Q*U+R*V,  M^3/S^3  (FT^3/S^3) 

+/-  =  DENOTES  +  OR  -  CHARACTERISTIC  CURVE 

******************************************************************** 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 

******************************************************************** 
*  * 

*  Function  Statements  * 

*  * 
******************************************************************** 

TM (B)  =  B  /  TZERO 

ZMUIFD(B)  =  ZMZERO*TM(B) **1.5* ( (l.+CONSU) / (TM(B) +CONSU) ) 

RE  (B)  =  R  (1)  *  Q  (1)  *  X(l)  /  ZMUIFD(B) 

BL (B)  =  RE (B) **  (1./8  .  ) 

******************************************************************** 

OUTPUT  THE  HEADER 

******************************************************************** 
WRITE (6,*)'  ' 

ASTR  =  'TURNING  CONTOUR  REGION' 

CALL  BANNER (ASTR) 

******************************************************************** 

CALCULATE  THE  TURNING  CONTOUR  REGION 
******************************************************************** 

IMAX  =  I+I_FINAL 
I  =  IMAX 
J  =  J2 

******************************************************************** 

START  MARCHING  DOWNSTREAM 

******************************************************************** 


DO  400  II  =  1+1  ,  I+I_FINAL 

******************************************************************** 


OUTPUT  THE  HEADER 

******************************************************************** 

WRITE (11,*)'  ' 

WRITE (6, 1010) 

******************************************************************** 


SET  THE  CONSTANTS 

******************************************************************** 


L  =  L  +  1 
YW  =  Y  (1) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

** 
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PW  =  P(l) 

MFR  =  0.0 
MFRT  =  0.0 
MFRTOLD  =  0.0 
C 

C*  ********************************************************************* * 

C*  * 

C*  BEGIN  MARCHING  UP  FROM  THE  FINAL  C+  CHARACTERISTIC  LINE  TO  THE  * 
C*  WALL .  * 

C*  * 

C*  ********************************************************************** 

C 


DO  402  JJ=  J  ,  1,  -1 

IF (JJ.EQ. J) THEN 
CALL  MOVE (4, J) 

X(J)  =  XY(II,J,1) 

Y ( J)  =  XY(II,J,2) 

X4  =  X(J) 

Y4  =  Y  ( J) 

R4  =  R ( J) 

A4  =  A  ( J) 

U4  =  Ql*COS(A4) 

V4  =  Q1*SIN(A4) 

CALL  THERMO ( Q4  ,  P4  ,  R4  ,  T4  ,  C , M4 ) 


! On  FINAL  C+  CHARACTERISTIC  LINE 


AREAX  =  PI  *  Y ( JJ) **2 

AREAX  =  PI  *  Y ( JJ) **2  *  DELTA  +  ( 1 -DELTA) *Y (JJ) 

MFRT  =  R4*U4*AREA  X 


! ON  INTERIOR  POINT  TURNING  SECTION 


CALL  MOVE ( 1 , JJ) 

CALL  MOVE (2  , JJ+1) 

U2  =  Q2*COS(A2) 

V2  =  Q2*SIN(A2) 

CALL  THERMO  (Q2  ,  P2  ,  R2  ,  T2  ,  C,  M2 ) 


LOAD  THE  CURRENT  POINT  INTO  PI 

LOAD  THE  Final  Characteristic  Line  CONDITIONS  INTO  P2 
OR  THE  OLD  P4  POINT 


! LOAD  THE  NEXT  POINT  INTO  P3  BUT  MAKE  SURE  IT  EXIST 
! IF  JJ=1  THEN  ITS  A  WALL  POINT  AND  THEN  P3=P1=P5 


IF (JJ.EQ. 1) THEN  ! IF  JJ=1  THEN  ITS  A  WALL  POINT  AND  THEN  P3=P1=P5 

CALL  MOVE (3  , JJ) 

ELSEIF (XY (II-l, JJ-1, 1) .EQ.0.0  .AND.  XY ( II - 1 , JJ- 1 , 2 ) . EQ . 0 . 0 ) THEN  !Still  a  wall  point 

CALL  MOVE (3  , JJ) 

ELSE 

CALL  MOVE (3  , JJ- 1)  ! IF  JJ=1  THEN  ITS  A  WALL  POINT  AND  THEN  P3=P1=P5 

END  IF 


CALL  TURNING 


CALL  MOVE ( 5 , JJ) 


! SAVE  THE  RESULTS  INTO  POINT  P4 


C*  ********************************************************************* * 

C*  * 

C*  FIND  THE  MASS  FLUX  * 

C*  * 

c*  ********************************************************************** 
c* 

IF (JJ.EQ. J) THEN 

AREA_X  =  PI  *  Y4**2  *  DELTA  +  ( 1 -DELTA) *Y4 
AREAY  =  0.0 
DEL_X  =  0.0 
DEL_Y  =  0.0 
RAVE  =  R4 
U_AVE  =  U4 
V_AVE  =  0.0 
ELSE 

DEL_X  =  ABS (X4-X (JJ+1) ) 

DEL_Y  =  ABS (Y4**2 -Y (JJ+1) **2 ) *DELTA  +  (1-DELTA) *ABS (Y4 -Y (JJ+1) ) 

AREA_X  =  PI  *  DELY  *  DELTA  +  ( 1 -DELTA) *DEL_Y 

AREA_Y  =  2.0  *  PI  *  ( Y4  +  Y ( JJ+1) ) /2 . 0*DEL_X  *  DELTA  +  ( 1 -DELTA) *DEL_X 
RAVE  =  (R4  +  R (JJ+1) ) /2 . 0 
U_AVE  =  (U4  +  U (JJ+1) ) /2 . 0 
V_AVE  =  (V4  +  V (JJ+1) ) /2 . 0 
END  IF 


WRITE ( 6  ,  * ) 1 R4 , R2 , R 1 , R4 , R2 , R_AVE 
WRITE ( 6  ,  * )  1 U4  , U2  , U 1 , U4  , U2 , U_AVE 
WRITE ( 6 , * )  ' V4 , V2  , V ' , V4  , V2  , V_AVE 
WRITE (6,*) 'AREA  X, AREA  Y 1 , AREA  X, AREA  Y 
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MFR  =  R_AVE  * (U_AVE*AREA_X+V_AVE*AREA_Y) 

MFRT  =  MFR  +  MFRT 

C* 

C* ********************************************************************** 

C*  * 

C*  CHECK  THE  MASS  FLUX  * 

C*  * 

C* ********************************************************************** 

C* 

END  IF 

IF (MFRT . GE . MDOT) THEN 

C  ZETA  =  SQRT ( (MDOT  -  MFRTOLD)  /  (MFRT  -  MFRTOLD) ) 

ZETA  =  (SQRT (MDOT)  -  SQRT (MFRT_OLD) )  /  (SQRT (MFRT)  -  SQRT (MFRT_OLD) ) 

X4  =  X4*ZETA  +  (1. -ZETA) *X(JJ+1) 

Y4  =  Y4*ZETA  +  (1 . -ZETA) *Y ( JJ+1) 

C  WRITE (6, *)' ZETA  =  ' ,ZETA,X4,Y4 

C  CALL  FINDMASSLINE ( JJ+1 , MFRTOLD) 

M4  =  M4*ZETA  +  (l.-ZETA)*M2 
Q4  =  Q4*ZETA  +  (1 . -ZETA) *Q (JJ+1) 

A4  =  A4*ZETA  +  (1 . -ZETA) *A (JJ+1) 

U4  =  Q4*COS(A4) 

V4  =  Q4*SIN(A4) 

P4  =  P4*ZETA  +  (1. -ZETA) *P (JJ+1) 

R4  =  R4*ZETA  +  (1 . -ZETA) *R (JJ+1) 

T4  =  T4*ZETA  +  (l.-ZETA)*T2 
CALL  MOVE ( 5 , JJ) 

C  WRITE ( 6  ,  * ) 1 MFRT , MDOT , MFRTOLD , ZETA 1 , MFRT , MDOT , MFRTOLD , ZETA 

END  IF 


MFRT  OLD  =  MFRT 


C*  ********************************************************************** 

C*  * 

C*  OUTPUT  THE  FLOW  VARIABLES  * 

C*  * 

C*  ********************************************************************** 
C* 

AP  =  A4  *  RAD 
PP  =  P4/GL 
C  LJ  =  L  +  J 


IF  (KW. EQ . 1) THEN 

WRITE (6,1020) II, JJ,X4, Y4,U4,V4,M4,Q4,AP,PP,R4,T4 
c  IF ( MFRT. GE. MDOT) write (6, *) 1  MASS  FLUX  =  1 , MFRT 

WRITE (11, 1020) II, JJ,X4, Y4,U4,V4,M4,Q4,AP,PP,R4,T4 

IF (MFRT. GE. MDOT) WRITE (3,1020) II , JJ, X4 , Y4 , U4 , V4 , M4 , Q4 , AP , PP , R4 , T4 

IF (MFRT. GE. MDOT) WRITE (32, 1020) II , JJ, X4 , Y4 , TM (T4 ) ,ZMUIFD(T4) ,RE(T4) ,BL(T4) , Y4+BL_SCALE*0 . 1404* ( (1. 
+X4) **0.125-1.0) 

c  IF (J.EQ. J2 .AND.Y4 . EQ . 0 . 0 . AND . X4 . LE . XE) WRITE (4,1020) II , JJ, X4 , Y4 , U4 , V4 , M4 , Q4 , AP , PP , R4 , T4 

END  IF 
C* 

C* ********************************************************************** 

C*  * 

C*  PLACE  THE  FLOW  VARIABLES  INTO  STORAGE  * 

C*  * 

C* ********************************************************************** 

C* 

XY (II , JJ, 1)  =  X4 

XY ( II , JJ, 2 )  =  Y4 

IF ( Y4 . LE . XY (II, JJ+1, 2) ) THEN 
WRITE  (6, *)  'Error  in  Y!  ' 

END  IF 

FLOW (II, JJ, 1)  =  U4 
FLOW (II, JJ, 2)  =  V4 

FLOW (II, JJ, 3)  =  M4 
FLOW (II, JJ,4)  =  Q4 
FLOW (II, JJ, 5)  =  A4 
FLOW (II, JJ, 6)  =  P4 
FLOW (II, JJ,7)  =  R4 
FLOW (II, JJ, 8)  =  T4 


IF (MFRT. GE. MDOT) GOTO  409 

C* 

C* ********************************************************************** 

C*  * 

C*  END  OF  THE  J  INDEX  LOOP  -  MARCHING  TO  THE  WALL  LOOP  * 

C*  * 

C* ********************************************************************** 


H-40 


c* 

402  ENDDO 


409  CONTINUE 
C* 

C*  ********************************************************************* * 

C*  * 

C*  LOAD  THE  FINAL  C+  CHARACTERISTIC  LINE  DATA  INTO  POINT  PI  * 

C*  * 

C*  ********************************************************************** 

c* 


U1 

= 

FLOW(I, J, 1) 

VI 

= 

FLOW (I, J, 2) 

Ml 

= 

FLOW (I, J, 3) 

Qi 

= 

FLOW (I, J, 4) 

A1 

= 

FLOW (I, J, 5) 

A4 

= 

A1 

PI 

= 

FLOW (I, J, 6) 

R1 

= 

FLOW (I, J, 7) 

T1 

= 

FLOW (I, J, 8) 

c* 

c*  ********************************************************************** 

c*  * 

C*  END  OF  THE  I  INDEX  LOOP  -  DOWNSTREAM  MARCHING  LOOP  * 

C*  * 

C*  ********************************************************************** 

C* 

400  ENDDO 

C 

C*  ********************************************************************* * 

c*  * 

C*  RETURN  * 

C*  * 

c*  ********************************************************************** 

c 

RETURN 

C 

C*  ********************************************************************** 

C*  * 

C*  FORMAT  STATEMENTS  * 

C*  * 

c*  ********************************************************************* * 

c 

1010  FORMAT ( / ,  1  I  J  X  '  ,  '  Y  '  U  VELOCITY  '  ,  '  ^ 

> 1  MACH  NUMBER  ' ,  'VELOCITY  MAG ' , '  FLOW  ANGLE  PRESSURE  DENSITY 

1020  FORMAT (215, 1P10E12 .4) 

C 

C*  ********************************************************************* * 

c*  * 

C*  END  OF  LINE  * 

C*  * 

c*  ********************************************************************** 

c 

END 

SUBROUTINE  DIRECT  WALL  POINT 


C. 

C. 

C. 

C. 

C. 

C. 

C. 

C. 

C. 

C. 

C. 

C. 

C. 

C. 

C. 

C. 

C. 

C. 

C. 


Points  3  and  2  are  known 
Point  4  is  located  on  the  wall 
Point  3  is  located  on  the  wall 

The  C-  characteristic  goes  through  points  3  and  2 

The  C+  characteristic  goes  through  points  2  and  4 

The  streamline  goes  through  points  3  and  4 


## 


WALL  ## 

##  *4 
##  * 

##  * 

##  *  C+ 

3*  * 

*  * 

C-  *  * 

2* 


C.  . 
C.  . 

c. . 
c. . 


.  CALCULATE  THE  SOLUTION  AT  A  DIRECT  WALL  POINT 

.  POINTS  2  AND  3  ARE  KNOWN,  SOLVE  FOR  POINT  4  ALONG  WALL  USING  CHARA+ 
INCLUDE  ' MOC . PAR ' 


VELOCITY  ' , 

'  ,  '  TEMPERATURE '  ) 
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OOO  00000000  000  000000  OOO 


INCLUDE  1 MOC . CMN 1 

.  .  .  CALCULATE  THE  COEFFICIENTS  FOR  THE  PREDICTOR 

ITER  =  0 

Q4  =  Q3 
P4  =  P3 
R4  =  R3 

CALL  THERMO  (Q2 , P2 , R2 , T , C , M) 

LP  =  TAN (A2+ASIN (1 . /M) ) 

QP  =  GC*SQRT(M**2-1.) / (R2*Q2**2) 

SP  =  DELTA* SIN (A2 ) / (Y2*M*C0S (A2+ASIN (1 . /M) ) ) 

.  .  .  WE  NEED  TO  FIND  POINT  X4 

10  CALL  BOUNDARY (2) 

.  .  .  SOLUTION 

TP  =  -SP* (X4-X2) +QP*P2+A2 

PO  =  0 . 5*  (P3+P4) 

R8  =  0 . 5* (R3+R4) 

QO  =  0 . 5* (Q3+Q4) 

RO  =  R8*Q0/GC 


CALL 

THERMO  (Q0,P0,R8,T,C,M) 

AO  = 

C**2/GC 

T01 

=  R0*Q3+P3 

T02 

=  P3 - AO  *R3 

P4  = 

(TP-A4) /QP 

Q4  = 

(T01-P4) /RO 

R4  = 

(P4-T02) /AO 

TEST 

FOR  CONVERGENCE 

WRITE (6,*)'  ' 

WRITE (6, 100) 1 

RO 

=  1  ,  RO 

WRITE (6, 100)  1 

AO 

=  1  ,  AO 

WRITE (6, 100)  1 

T01 

=  1  ,  T01 

WRITE  (6, 100)  ' 

T02 

=  '  ,T02 

WRITE (6, 100)  1 

Q+ 

=  1  /  QP 

WRITE  (6, 100)  ' 

S  + 

=  1  ,  SP 

WRITE  (6, 100)  ' 

T  + 

=  1  ,  TP 

100  FORMAT (A, 1P2E15 . 5) 

IF ( ITER . EQ . I COR)  RETURN 
IF (ITER.EQ. 0)  GOTO  20 

IF ( (ABS (X4-XD) .GT.E1)  .OR.  (ABS (Y4 - YD) . GT . El) )  GOTO  20 

IF ( (ABS (P4-PD) .GT.E2*PD)  .OR.  (ABS (R4 -RD) . GT . E3*RD) )  GOTO  20 
IF ( (ABS (Q4-QD) .GT.E4*QD)  .AND.  (ABS (A4 -AD) . GT . E5*AD) )  RETURN 

. . .  CALCULATE  THE  COEFFICIENTS  FOR  THE  CORRECTOR 

20  ITER  =  ITER  +  1 

XD  =  X4 
YD  =  Y4 
PD  =  P4 
RD  =  R4 
QD  =  Q4 
AD  =  A4 

PO  =  0 . 5* (P2+P4) 

R8  =  0 . 5* (R2+R4) 

QO  =  0 . 5* (Q2+Q4) 

AO  =  0.5* (A2  +A4 ) 

YO  =  0.5* ( Y2  +Y4 ) 

CALL  THERMO  (QO , PO , R8 , T , C , M) 

LP  =  TAN (AO+ASIN (1 . 0/M) ) 

SP  =  DELTA*SIN (AO) / (YO*M*COS (AO+ASIN (1. 0/M) ) ) 

QP  =  GC*SQRT (M**2 - 1 . 0 ) / (R8*Q0**2) 
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GOTO  10 


END 

SUBROUTINE  LEASTSQRFIT (X, Y,MM,K,R) 
c******************************************************** 

C*  LEAST  SQUARE  APPROXIMATION  OF  A  DISCREET  FUNCTION  * 
c*  USING  ORTHOGONAL  POLYNOMIALS  * 

C*  -  * 

Q*  ******************************************************  * 

REAL  X (MM) , Y (MM) , SIGMA (MM) , S ( 0 : K) , ECART ( 0 : K) , ALPHA (K) , 

>  BETA ( 0 : K- 1) ,  P ,  R (MM) ,  W,  WO , DW, PI , WORK (4*MM) 

SIGMA  =  1.0 

CALL  MCAPPR (K, MM, X,  Y, SIGMA, S , ALPHA, BETA, ECART , WORK) 

PRINT  '  ' 

WRITE (*, 1 (IX, A) 1 )  1  I  COEFFICIENTS  STD  DEVIATION' 

WRITE (*, 1 (14 , 2E17 . 8) ')  (I,S(I) , ECART (I) ,I=0,K) 

C  PRINT  * , '  ' 

C  WRITE (*, ' (IX, A) ' )  '  I  VARIABLE  EXACT  R  APPROX.  R' 

DO  1=1, MM 
W=X (I) 

R ( I ) =P (K, S, ALPHA, BETA, W) 
c  WRITE (*, 1 (I4,3E17.8) ')  I , Y (I) ,X(I) ,R(I) 

ENDDO 

RETURN 

END 

SUBROUTINE  MCAPPR (K, M, X, Y, SIGMA, S , ALPHA, BETA, ECART, WORK) 
c======================================================================= 

C  LEAST  SQUARES  APPROXIMATION  OF  A  FUNCTION  F (X)  DEFINED  BY  M  POINTS 

c  X (I) ,  Y (I)  BY  USING  ORTHOGONAL  POLYNOMIALS 

c======================================================================= 

c  INPUTS : 

c  K  :  DEGREE  OF  POLYNOMIALS 

C  M  :  NUMBER  OF  POINTS 

c  X, Y  :  TABLES  OF  DIMENSION  M  TO  STORE  M  ABSCISSAS  AND 

c  M  ORDINATES  OF  GIVEN  POINTS 
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C  SIGMA  :  TABLE  OF  DIMENSION  M  TO  STORE  THE  STANDARD  DEVIATIONS 

C  OF  VARIABLE  Y 

c  OUTPUTS : 

c  S  :  TABLE  OF  DIMENSION ( 0 : K) 

C  ALPHA:  TABLE  OF  DIMENSION  (K) 

c  BETA  :  TABLE  OF  DIMENSION  (0:K-1) 

c  WORKING  SPACE: 

C  WORK  :  TABLE  OF  DIMENSION  (4*M) 

c  NOTE : 

C  COEFFICIENTS  S, ALPHA, BETA  ARE  USED  TO  EVALUATE  VALUE 

C  AT  POINT  Z  OF  THE  BEST  POLYNOMIAL  OF  DEGREE  K 

C  BY  USING  FUNCTION  P (K, S , ALPHA, BETA, Z)  DESCRIBED  BELOW. 

C= =================================================================== 

REAL  X (M) , Y (M) , SIGMA (M) , S ( 0 : K) , ECART ( 0 : K) , ALPHA (K) , 

>  BETA ( 0 : K- 1) ,  WORK(4*M) 

M1=M+1 

M2  =M+M1 
M3  =M+M2 

CALL  MCARRE (K,M,X, Y, SIGMA, S, ALPHA, BETA, ECART, WORK (1) , WORK (Ml) , 

>  WORK (M2) , WORK (M3) ) 

END 

! LEAST  SQUARES  SUBROUTINE 

SUBROUTINE  MCARRE (K, M, X, Y, SIGMA, S , ALPHA, BETA, ECART ,P1,P2,P3,P4) 
C  IMPLICIT  REAL (A-H,0-Z) 

DIMENSION  X (M) , Y (M) , SIGMA (M) , S ( 0 : K) , ECART ( 0 : K) , ALPHA (K) , 

>BETA ( 0 : K- 1) ,P1 (M) , P2 (M) , P3 (M) , P4 (M) 

DO  1=1, M 
PI (I) =0 . DO 
P2 (I) =1 . DO 
ENDDO 
W=M 

BETA ( 0 ) =0 .DO 
DO  1=0, K-l 

OMEGA=PRD (Y, P2 , SIGMA, M) 

S (I) = OMEGA/ W 

T=PRD(P2,P2, SIGMA, M) /W**2 
ECART (I) =SQRT (T) 

DO  L=1 , M 

P4 (L) =X(L) *P2 (L) 
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ENDDO 


ALPHA (1+1) =PRD(P4,P2, SIGMA, M) /W 
DO  L=1 , M 

P3 (L)  =  (X (L)  -ALPHA (1  +  1) ) *P2  (L)  -BETA (I) *P1 (L) 

ENDDO 

WPR=PRD  (P3  ,  P3  ,  SIGMA,  M) 

IF (I+l.LE.K-1)  BETA(I+1) =WPR/W 
W=WPR 
DO  L=1 , M 
PI (L) =P2 (L) 

P2  (L)  =P3  (L) 

ENDDO 

ENDDO 

OMEGA=PRD (Y, P2 , SIGMA, M) 

S (K) = OMEGA/ W 

T=PRD(P2,P2, SIGMA, M) /W**2 
ECART (K) =SQRT (T) 

RETURN 

END 

FUNCTION  PRD (X, Y, Z , M) 

REAL* 8  X (M)  , Y (M)  , Z (M)  , PRD , SUM 
SUM=0 .DO 
DO  1=1, M 

SUM=SUM+X (I) *Y ( I ) /Z (I) **2 

ENDDO 

PRD=SUM 

RETURN 

END 

FUNCTION  P (K,S, ALPHA, BETA, X) 

C= ==================================================================== 

C  THIS  FUNCTIONE  ALLOWS  EVALUATING  VALUE  AT  POINT  X  OF  A  FUNCTION 

C  F (X) ,  APPROXIMATED  BY  A  SYSTEM  OF  ORTHOGONAL  POLYNOMIALS  P j (X) 

C  THE  COEFFICIENTS  OF  WHICH,  ALPHA, BETA  HAVE  BEEN  DETERMINED  BY 

c  LEAST  SQUARES . 

C= ==================================================================== 

REAL  S  (0:*)  , ALPHA (*)  , BETA ( 0 : * )  , P, B, X, BPR, BSD 
B=S (K) 

BPR=S (K-l) + (X-ALPHA (K) ) *S (K) 

DO  I=K- 2 ,0,-1 
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BSD=S (I) + (X -ALPHA (1+1) ) *BPR-BETA (1+1) *B 

B  =  BPR 

BPR=BSD 

ENDDO 

P  =  BPR 

RETURN 

END 

SUBROUTINE  FINALCHARLINE 
C 

C*  ********************************************************************** 

C*  * 

C*  FINAL  C+  CHARACTERISTIC  LINE  CALCULATION  * 

C*  * 

c*  ********************************************************************* * 

c 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 

C* 

C*  ********************************************************************** 

C*  * 

c*  OUTPUT  STATEMENTS  * 

C*  * 

c*  ********************************************************************* * 
c* 

WRITE (6,*)'  ' 

ASTR  =  'REACHED  DESIGNED  MACH  NUMBER  ON  CENTERLINE' 

CALL  BANNER (ASTR) 

WRITE (6, *) '  ' 

WRITE (6,*)'  FINAL  C+  CHARACTERISTIC  LINE  CALCULATION' 

WRITE (6,*)'  ' 

C* 

C*  ********************************************************************** 

C*  * 

C*  FIND  THE  NEW  STOPPING  LOCATION  BASED  ON  THE  MASS  FLOW  RATE  * 

C*  * 

C*  ********************************************************************** 
C* 

MDOT  =  MFRT  !This  seems  to  be  a  smart  thing  to  do 

WRITE (6,*)'  ' 

WRITE (  6  ,  * ) '  RESETTING  MASS  FLUX  =  ' , MDOT 
IF (DELTA . EQ . 1) THEN 
YE  =  SQRT (MDOT/R4/U4/PI) 

ELSE 

YE  =  MDOT/R4/U4 
END  IF 

XE  =  X4  +  YE/TAN (ASIN ( 1. /M4 ) ) 


WRITE (6,*)'  ' 

WRITE (  6  ,  * ) '  NOZZLE  EXIT  POINT  ',XE,YE 

WRITE (6, 1010) 

c  WRITE (8, *) '  ' 

C* 

C*  ********************************************************************** 

C*  * 

C*  DEFINE  THE  POINTS  ALONG  THE  FINAL  C+  CHARACTERISTIC  LINE  * 

C*  * 

c*  ********************************************************************* * 
c* 

I  =  IMAX 
J  =  J2 

IF (I+IFINAL.GT.NII) THEN 
WRITE (6 , *) '  ' 

WRITE ( 6  ,  * ) '  STOPPING  CODE:  RESET  Nil  TO  ',1+IFINAL 
STOP 
END  IF 

DO  II  =  I  ,  I+I_FINAL 

ZETA  =  (11*1.  -  1*1.  )  /  (  1*1 . +I_FINAL*1 .  -  1*1.  ) 

C. . .Even  Spacing  for  y 
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Y5  =  YE*ZETA 

X5  =  XE*ZETA  +  ( 1 - ZETA) *X4 


C 

C 

C 


.Quaddratic  spacing  for  y 
Y5  =  YE* (ZETA) **2 

X5  =  XE*ZETA**2  +  X4* (1 . -ZETA**2 ) 


C* 

C*  ********************************************************************* * 

C*  * 

C*  OUTPUT  THE  FLOW  VARIABLES  * 

C*  * 

C*  ********************************************************************** 

c* 

A4  =  0.0 
AP  =  A4  *  RAD 
PP  =  P4/GL 

WRITE (6,1020) II, J,X5, Y5,U4,V4,M4,Q4,AP,PP,R4,T4 
WRITE (10, 1020) II, J,X5, Y5,U4,V4,M4,Q4,AP,PP,R4,T4 

C* 

C*  ********************************************************************* * 

c*  * 

C*  PLACE  THE  FLOW  VARIABLES  INTO  STORAGE  * 

C*  * 

c*  ********************************************************************** 
c* 

X Y (II,J,1)  =  X5 

X Y (II, J, 2)  =  Y5 

FLOW (II,J,1)  =  U4 
FLOW (II, J, 2)  =  V4 

FLOW (II, J, 3)  =  M4 
FLOW (II, J, 4)  =  Q4 
FLOW (II, J, 5)  =  A4 
FLOW (II, J, 6)  =  P4 
FLOW (II, J, 7)  =  R4 
FLOW (II, J, 8)  =  T4 

C* 

C*  ********************************************************************** 

C*  * 

C*  END  OF  THE  I  INDEX  LOOP  * 

C*  * 

c*  ********************************************************************* * 

c* 

ENDDO 

C 

C*  ********************************************************************** 

C*  * 

C*  RETURN  TO  THE  MAIN  CALLING  PROGRAM  * 

C*  * 

C*  ********************************************************************** 

C 

RETURN 

C 

C*  ********************************************************************* * 

c*  * 

C*  FORMAT  STATEMENTS  * 

C*  * 

c*  ********************************************************************** 

c 

1010  FORMAT (/,'  I  J','  X  Y  U  VELOCITY  '  ,  '  ^ 

> 1  MACH  NUMBER  ',  'VELOCITY  MAG '  ,  '  FLOW  ANGLE  PRESSURE  DENSITY 

1020  FORMAT (215, 1P10E12 .4) 

C 

C*  ********************************************************************** 

C*  * 

C*  END  OF  LINE  * 

C*  * 

C*  ********************************************************************** 

C 


C. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 

c. 


END 

SUBROUTINE  LINE_INTERSECTION (AX, AY, BX, BY, CX, CY, DX, DY, H, G, IX, IY) 

THIS  ROUTINE  PROJECTS  RAY  AB  ONTO  RAY  CD  (H  FACTOR)  AND 
THEN  PROJECTS  RAY  CD  ONTO  AB  (G  FACTOR) .  THE  TWO  RAYS 
INTERSECT  ONLY  IF  BOTH  H  &  G  ARE  BEWTEEN  0  AND  1. 


if 

H 

is 

0 

then 

you 

are 

at 

point 

C 

if 

H 

is 

1 

then 

you 

are 

at 

point 

D 

if 

G 

is 

0 

then 

you 

are 

at 

point 

A 

if 

G 

is 

1 

then 

you 

are 

at 

point 

B 

VELOCITY  ' , 

'  ,  '  TEMPERATURE  1 ) 
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o  o  o  o  o  o 


REAL  H,IX,IY 


EX 

= 

BX-AX 

EY 

= 

BY -AY 

FX 

= 

DX-CX 

FY 

= 

DY-CY 

GX 

= 

AX-CX 

GY 

= 

AY-CY 

PX 

= 

-EY 

PY 

= 

EX 

F_D°T_p  =  FX*PX  +  FY*PY 
G_D°T_P  =  GX*PX  +  GY*PY 

IF ( F_DOT_P . NE . 0 . 0) THEN 
H  =  G_DOT_P  /  FDOTP 
ELSE 

H  =  1.0E+10 
END  IF 

C  WRITE (6,*)'  H  FACTOR:  ',H 

IX  =  CX  +  FX*H 
IY  =  CY  +  FY*H 

c  WRITE ( 6  ,  * ) 1  INTERSECT  ON  RAY  CD  (X, Y) : '  , IX, IY 


EX 

= 

DX-CX 

EY 

= 

DY-CY 

FX 

= 

BX-AX 

FY 

= 

BY -AY 

GX 

_ 

CX-AX 

GY 

= 

CY-AY 

PX 

- 

-EY 

PY 

= 

EX 

FDOTP  =  FX*PX  +  FY*PY 
G_D°T_p  =  GX*PX  +  GY*PY 

IF (FDOTP.NE. 0 . 0) THEN 
G  =  G_DOT_P  /  F_DOT_P 
ELSE 

G  =  1.0E+10 
END  IF 


c 


c 

c 


c 

c 


WRITE (6,*)'  G  FACTOR:  ',G 
IX  =  AX  +  FX*G 
IY  =  AY  +  FY*G 

WRITE ( 6  ,  * ) 1  INTERSECT  ON  RAY  AB  (X,Y) 
WRITE (6, *) 1  1 

IF (H.GE. 0 . 0 
>  G . GE . 0 . 0 

WRITE  (6, *)  1 
ELSE 

WRITE (6, *) ' 

END  IF 


. AND .  H . LE . 1 . 0  . AND . 
.AND.  G . LE .1.0  ) THEN 
RAYS  INTERSECT' 

RAYS  DO  NOT  INTERSECT' 


IX,  IY 


RETURN 

END 

SUBROUTINE  READ  NAMELIST 


*********************************************************************** 
*  * 

*  READ  IN  THE  NAMELIST  INPUT  * 

*  * 
*********************************************************************** 


C 

INCLUDE  ' MOC . PAR ■ 

INCLUDE  ' MOC . CMN ' 

C.  .  . 

NAMELIST  /INPUT/  DELTA, IUNITS , ICOR, El , E2 , E3 , E4 , E5 , IORDER, 

>  GC , GL , G, RG, CP , NI , NT , KWRITE , 

>  PS , TS , PA, YT, RTU, RTD, AA, AE, XE, ST, 

>  EMD , NOZ , SMOOTH , IVL , I_FINAL , BL_SCALE 
C 

C* ********************************************************************** 

C*  * 
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C*  SET  DEFAULT  CONDITIONS  * 

C*  * 

C*  ********************************************************************** 

c 


IORDER 

BL  SCALE 

=  15 
=  1.0 

TZERO 

= 

273.0 

CONSU 

= 

110 .4/TZERO 

ZMZERO 

= 

.00001716 

I  FINAL 

=  50 

SMOOTH 

= 

. FALSE . 

EMD 

= 

3.0 

NOZ 

= 

0 

ERROR 

= 

1.0E-10 

JMAX 

= 

0 

IVL 

= 

0 

XY 

= 

0.0 

FLOW 

= 

0.0 

XI 

= 

0.0 

X2 

= 

0.0 

X3 

= 

0.0 

X4 

= 

0.0 

Y1 

= 

0.0 

Y2 

= 

0.0 

Y3 

= 

0.0 

Y4 

= 

0.0 

Q1 

= 

0.0 

Q2 

= 

0.0 

Q3 

= 

0.0 

Q4 

= 

0.0 

A1 

= 

0.0 

A2 

= 

0.0 

PI 

= 

0.0 

P2 

= 

0.0 

P3 

= 

0.0 

P4 

= 

0.0 

R1 

= 

0.0 

R2 

= 

0.0 

R3 

= 

0.0 

R4 

= 

0.0 

PI 

= 

4 . 0*ATAN (1.0 

RAD 

= 

180. /PI 

DESIGNED 

i  M  =  .FALSE. 

EXITEND 

i  =  . FALSE . 

c*  * 

C*  SET  DEFAULT  PROPERTIES  * 

C*  * 

C 


El 

= 

1.0E-06 

!m 

E2 

= 

1.0E-06 

!m/s 

E3 

= 

1.0E-06 

!m/  s 

E4 

= 

1.0E-06 

!m/s 

E5 

= 

1.0E-06 

!m/s 

GC 

_ 

1.0 

! M-KG/N- S^2 

GL 

= 

1.0 

!M^2/M^2 

G 

_ 

1.2 

RG 

= 

320.000 

! J/KG-K 

ST 

= 

0.0 

!even  spaced  start 

C*  ********************************************************************** 

c*  * 

C*  SET  DEFAULT  CONTROL  VALUES  * 

C*  * 

c*  ********************************************************************* * 

c 

DELTA  =  1.0 
NI  =21 

NT  =  15 

ICOR  =30 
KWRITE=  1 
IUNITS=  2 
C 

C*  ********************************************************************* * 

c*  * 

C*  SET  DEFAULT  GAS  DATA  * 

C*  * 
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c 


PS 

= 

70.0E+05 

TS 

= 

3000.0 

PA 

= 

0.0 

G 

= 

1.4 

RG 

= 

287.040 

CP 

= 

G  *  RG  / 

C*  ********************************************************************** 

c*  * 

C*  SET  DEFAULT  NOZZLE  WALL  CONDITIONS  * 

C*  * 

C*  ********************************************************************** 

C 


YT 

= 

1. 

000 

Jnozzle  radius 

RTU 

= 

2. 

000 

! radius  of  curve 

RTD 

= 

0. 

500 

! radius  of  curve 

AA 

= 

10 

.0 

[attachment  angle 

AE 

= 

10 

.0 

[exit  angle 

XE 

= 

10 

.0 

[exit  location 

c*  ********************************************************************** 
c*  * 

C*  READ  IN  THE  NAME  LIST  INPUT  DATA  * 

C*  * 

C*  ********************************************************************** 

C 

WRITE ( 6 , * ) 1  ' 

ASTR  =  1  INPUT  CONDITIONS' 

CALL  BANNER (ASTR) 

REWIND  (2) 

I FIND  =  0 

DO  WHILE (IFIND.EQ. 0) 

READ (2,  '  (A)  '  , END  =  34) NMLNAME 
IF  (NMLNAME (2:7) . EQ . 1 &INPUT 1 )  IFIND=1 
ENDDO 

BACKSPACE (2) 

READ  (2,  INPUT) 

!  WRITE (6, INPUT) 

CLOSE (2) 

CP  =  G  *  RG  /  (G  -  1.) 

PS  =  PS  *  GL 

PA  =  PA  *  GL 

IF (NI . GT .99) NI=99 


C*  ********************************************************************** 

C*  * 

C*  OUTPUT  THE  NAMELIST  * 

C*  * 

C*  ********************************************************************** 

C 

WRITE (6, *) ' 

WRITE (6, 100) 

WRITE (6,101) 

WRITE (6, 102) 

WRITE (6, 102) 

WRITE (6,102) 

WRITE (6, 102) 

WRITE (6, 102) 


IVL=1 1 


WRITE (6 , *) ' 
WRITE (6,100) 
WRITE (6,102) 
WRITE (6,102) 
WRITE (6,101) 
WRITE (6,101) 

■ 

WRITE (6,103) 

WRITE ( 6  ,  * ) ' 
WRITE (6,100) 
WRITE (6,102) 
WRITE (6,102) 
WRITE (6,102) 
WRITE (6,102) 
WRITE (6,102) 
WRITE (6,102) 
WRITE (6,102) 


!  .  .  . 

Error 

Conditions ' 

ICOR 

=  1 

,  ICOR 

, ' ! Predictor  Corrector 

El 

=  ' 

/El,  ' 

! X  Space  Error' 

E2 

=  ' 

,  E2  ,  ' 

[Pressure  Error' 

E3 

=  ' 

/  E3  ,  ' 

[Density  Error' 

E4 

=  ' 

,  E4 ,  ' 

[Velocity  Error' 

E5 

=  ' 

,  E5 ,  ' 

[Flow  Angle  Error' 

!...  Control  Conditions' 

DELTA  = ' , DELTA, ' ! 1  axi ,  0  planer  (Mass  flux  not  working  correctly)' 

ST  =',31,'! 0.0  Even  space  start  line,  1.0  quadaratic  spaced' 

NI  =' ,NI, '! NUMBER  OF  RADIAL  POINTS  ON  INFLOW  PLANE  (Max  99)' 

NT  = ' , NT , ' ! NUMBER  OF  CIRULAR  ARC  POINTS  (Should  =  AA) ,  used  only  if 

SMOOTH  =' , SMOOTH, '! EVENLY  SPACE  OUT  THE  DATA  AFTER  EACH  SECTION' 


Gas  Proporties ' 

1  ! 1 . 0  M-KG/N- S^2  Or  32.174  FT-LBft 
1 ! 1 . 0  M^2/M^2  Or  144.0  IN^2/FT^2 ' 


GC 

=  '  ,GC 

GL 

=  '  ,  GL 

PS 

=  '  ,  PS 

PA 

=  '  ,  PA 

TS 

=  '  ,  TS 

G 

=  '  ,G, 

RG 

=  '  ,  RG 
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WRITE (6,102) 'CP 


= ' , CP, ' ! J/kg-K  Specific  Heat  At  Constant  Pressure' 


WRITE  (6, *)  ' 
WRITE (6, 100) 
WRITE  (6, 101) 


IVL 


Start  Line  Condition' 

=',IVL,'!0  Transonic  Start,  1  User  Defined  Input  From  "Profile.dat"' 


WRITE (6 
WRITE (6 
WRITE  (6 
WRITE (6 
WRITE (6 
WRITE (6 
WRITE (6 
WRITE (6 


*)  ■ 

100) 

102) 

102) 

102) 

102) 

102) 

102) 


YT 

RTU 

RTD 

AA 

XE 

AE 


Nozzle  Wall  Properties' 

= ' , YT, ' INozzle  Radius' 

=', RTU, '! Radius  Of  Curveture  Upstream  Of  Throat' 

=', RTD, '! Radius  Of  Curveture  Downstream  Of  Throat' 

=' ,AA, '! Attachment  Angle  -  Angle  At  Which  Flow  Transition  To  MOC  Wall' 
= ' , XE , ' ! Exit  Location' 

= ' ,XE, ' ! Exit  Angle' 


WRITE (6 
WRITE  (6 
WRITE (6 
WRITE (6 
WRITE (6 
WRITE (6 


*)  ■ 

100) 

102) 

101) 

101) 

102) 


!...  Nozzle  Solution' 

EMD  =', EMD, '! Design  Exit  Mach  Number' 

NOZ  = ' , NOZ , ' ! 1  Nozzle  Shape  Inputed,  0  Nozzle  Shape  From  MOC' 

I_FINAL  = ' , I_FINAL, ' ! 1  #  Of  Points  On  Final  Characteristic  Line' 
BL_SCALE= ' , BL_SCALE, ■ ! Boundary  Layer  Scaler' 


100 

FORMAT (A) 

101 

FORMAT ("  ",A,I15, ", 

"/A) 

102 

FORMAT ("  " , A, 1PE15 . 5 , " , 

"/A) 

103 

FORMAT ("  " , A, LI 5 , " , 

"  /  A) 

RETURN 


C*  ********************************************************************** 

C*  * 

C*  ERROR  SECTION  * 

C*  * 

C*  ********************************************************************** 

C 

34  WRITE (6,*) 'Can  not  find  namelist  &INPUT  in  file  "NOZZLE . inp" ' 

STOP 


END 

SUBROUTINE  SECOND_ORDER_WALL_FLOWFIELD 
C 

C* ********************************************************************** 

C*  * 

C*  CALCULATE  THE  FLOW  FIELD  FROM  THE  SECOND  ORDER  QUADRATIC  WALL  * 

C*  * 

C* ********************************************************************** 

C 

C 

c* ********************************************************************** 


c*  * 

C*  TERMINOLOGY  FOR  SUPERSONIC  FLOW  METHOD  OF  CHARACTERISTICS  * 

C*  * 

C*  CONTROL  VARIABLE:  * 

C*  -  * 

C*  * 

C*  DELTA  =  'O'  FOR  PLANER  FLOW  * 

C*  =  '1'  AXISYMMETRIC  FLOW  * 

C*  ICOR  =  NUMBER  OF  APPLICATIONS  OF  THE  CORRECTOR  DESIRED  * 

C*  El  =  CONVERGENCE  TOLERANCE  FOR  LOCATION,  M  (IN)  * 

C*  E2  =  CONVERGENCE  TOLERANCE  FOR  VELOCITY,  M/S  (FT/SEC)  * 

C*  GC  =1.0  M-KG/N- S^2  OR  32.174  FT-LBM/LBF- S^2  * 

C*  GL  =1.0  M^2/M^2  OR  144.0  IN^2/FT^2  * 

C*  ST  =0.0  EVEN  SPACE  STARTLINE,  1.0  QUADRATIC  SPACED  * 

C*  * 

C*  GAS  THERMODYNAMIC  PROPERTIES  &  STAGNATION  PROPERTIES:  * 

C*  -  * 

c*  * 

C*  G  =  RATIO  OF  SPECIFIC  HEATS  * 

C*  RG  =  GAS  CONSTANT,  J/KG-K  (FT-LBF/LBM-R)  * 

C*  TS  =  STAGNATION  TEMPERATURE,  K  (R)  * 

C*  PS  =  STAGNATION  PRESSURE,  N/M^2  (LBF/IN^2)  * 

C*  PA  =  AMBIENT  PRESSURE,  N/M^2  (LBF/IN^2)  * 

C*  * 

C*  FLOW  FIELD  PROPERTIES:  * 

C*  -  * 

c*  * 

C*  X  =  AXIAL  COORDINATE,  M  (IN)  * 

C*  Y  =  RADIAL  COORDINATE,  M  (IN)  * 

C*  U  =  AXIAL  VELOCITY,  M/S  (FT/S)  * 
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C*  V  =  RADIAL  VELOCITY,  M/S  (FT/S)  * 

C*  Q  =  VELOCITY  MAGNITUDE,  M/W  (FT/S)  * 

C*  A  =  FLOW  ANGLE,  RAD  * 

C*  P  =  STATIC  PRESSURE,  N/M^2  (LBF/IN^2)  * 

C*  R  =  STATIC  DENSITY,  KG/M^3  (LBM/FT^3 )  * 

C*  T  =  STATIC  TEMPERATURE,  K  (R)  * 

C*  C  =  SPEED  OF  SOUND,  M/S  (FT/S)  * 

C*  M  =  MACH  NUMBER  * 

C*  EMD  =  DESIGN  MACH  NUMBER  * 

C*  1,2,3,  =  DENOTES  PROPERTIES  AT  POINTS  * 

C*  * 

C*  TERMINOLOGY  EMPLOYED:  * 

C*  -  * 

C*  * 

C*  L  =  TAN (THETA+ -ALPHA)  * 

C*  Q  =  (U^2 -C^2 ) ,  M^2/S^2  (FT^2/S^2)  * 

C*  R  =  2UV-L (U^2 -C^2 )  M"2/S"2  (FT^2/S^2)  * 

C*  S  =  DELTA*C^2*V/Y,  M^2/S^3  (FT^2/ SEC ^3  - IN)  * 

C*  T  =  S*DEL (X) +Q*U+R*V,  M^3/S^3  (FT^3/S^3)  * 

C*  +/-  =  DENOTES  +  OR  -  CHARACTERISTIC  CURVE  * 

C*  * 

C*  ********************************************************************** 

c 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 
C 

C*  ********************************************************************* 

c**  ** 

C**  Function  Statements  ** 

C**  ** 

C*  ********************************************************************* 

C 

TM (B)  =  B  /  TZERO 

ZMUIFD(B)  =  ZMZERO*TM (B) **1.5* ( (1. +CONSU) / (TM (B) +CONSU) ) 

RE  (B)  =  R  (1)  *  Q  (1)  *  X(l)  /  ZMUIFD(B) 

BL (B)  =  RE (B) **  (1./8  .  ) 

C* 

C*  ********************************************************************** 

C*  * 

C*  OUTPUT  STATEMENTS  * 

C*  * 

c*  ********************************************************************* * 
c* 

WRITE (6,*)'  ' 

ASTR  =  'CALCULATE  THE  FLOW  FIELD  FROM  THE  SECOND  ORDER  QUADRATIC  WALL 
CALL  BANNER (ASTR) 

C* 

C*  ********************************************************************* * 

c*  * 

c*  SET  THE  CONSTANTS  * 

C*  * 

c*  ********************************************************************** 
c* 


III 

= 

NI  +  NT 

! ending 

i 

index  from 

circular  arc 

throat 

II 

= 

III  +  1 

! STARTING 

I  INDEX 

III 

= 

11+10000 

! ending 

i 

index,  set 

to  just  some 

large  number 

L 

= 

0 

J2 

= 

J3  -  I END 

J2 

= 

J2  +  1  - 

I  END 

c 
c 

C* 

c*  ********************************************************************** 

c*  * 

C*  CALL  BOUNDARY  AND  FIND  THE  WALL  ANGLE  BETWEEN  P2  AND  P4  * 

C*  * 

c*  ********************************************************************** 
c* 

CALL  BOUNDARY (1) 

C* 

C*  ********************************************************************** 

C*  * 

C*  START  MARCHING  DOWNSTREAM  * 

C*  * 

C*  ********************************************************************* * 

c* 

DO  290  I  =  II  ,  III 
WRITE (6, *) '  ' 

ASTR  =  'CALCULATE  THE  FLOW  FIELD  FROM  THE  SECOND  ORDER  QUADRATIC  WALL 
CALL  BANNER (ASTR) 

IF (I+l.GT.NII) THEN 
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WRITE  (6,*)'  1 

WRITE  (6,*)'  Stopping  the  code:  Variable  Nil  needs  to  be  increased.1 
STOP 
END  IF 


C* 

C*  ********************************************************************** 

C*  * 

c*  IF  AT  THE  EXIT  PLANE  THEN  END  THE  I  LOOP  * 

C*  * 

C*  ********************************************************************** 
C* 

IF (X (1) . GE . XE) THEN 
EXIT_END= . TRUE . 

RETURN 
END  IF 

C* 

C*  ********************************************************************* * 

c*  * 

c*  SET  THE  WALL  CONDITIONS  * 

C*  * 

c*  ********************************************************************** 
c* 

L  =  L  +  1 
YW  =  Y  (1) 

PW  =  P(l) 

C  WRITE (9, *) 1  ' 

C* 

C*  ********************************************************************** 

C*  * 

C*  BEGIN  LOOPING  OVER  THE  J  INDEX  FROM  THE  WALL  TO  THE  CENTERLINE  * 
C*  * 

c*  ********************************************************************* * 
c* 

190  CONTINUE 

MFRT  =  0.0 

DO  270  J  =  1  , J2 


I F ( J . EQ . 1 ) THEN 
CALL  MOVE (2,2) 

CALL  MOVE (3,1) 

CALL  DIRECT  WALL  POINT 


! ON  THE  WALL 

!  move  lower  point  into  P2 
!  move  wall  point  into  P3 


IF (X4 . GT . XE  .AND.  IVL.NE.  1) THEN 
X4  =  XE 
Y4  =  YE 
A4  = ATAN ( LE ) 

L  =  L  -  1 
CALL  MOVE (3,1) 

CALL  MOVE (1,2) 

L0  =  LE 

CALL  INVERSEWALLPOINT 
J2  =  J 

WRITE ( 9 , * ) 1  ' 

END  IF 


!  If  past  exit  plane,  reset  X4 
!  In  general,  this  should  not  happen 
!  unless  we  reach  the  exit  plane  before 
!  we  reach  the  design  Mach  number. 


! slope  at  point  P4 


WRITE (6, 1010) 


into  P3 


ELSEIF ( (J.EQ. J2) .AND. (IEND.EQ. 0) ) THEN 

CALL  MOVE ( 1 , J - 1 ) 

CALL  MOVE (6,0) 

! ON  THE 
!  MOVE 
!  move 

CALL  AXIS 

ELSEIF (J.GT. J2) THEN 
WRITE (6,*)'  Stopping  Code  -  Error?' 
STOP 

GOTO  290 


! error  condition,  should  not  happen 


ELSE 

CALL  MOVE ( 1 , J - 1 ) 

C .  .  .  kdk 

c  CALL  MOVE ( 2 , J + 1 ) 

CALL  MOVE ( 2 , J ) 

CALL  INTERIOR  POINT 


! INTERIOR  POINT 
!  MOVE  the  upper  point  TO  PI 


AXIS 

c 


IF (Y4 .LT. 0 . 0) THEN 
J2  =  J 

CALL  MOVE ( 1 , J - 1 ) 


!if  point  is  below  axis  call  subroutine 
!  MOVE  the  upper  point  TO  PI 
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!  move  the  old  P2  point  from 


CALL  MOVE (6,0) 

INTERIOR_POINT  into  P3 
CALL  AXIS 
ELSE 

C  IF (X4 .LT.X (1) ) THEN 

c  WRITE ( 6 , * ) 1  Stopping  Code  -  Error?' 

c  STOP 

c  J2  =  J2 - J+l+IEND 

c  L  =  L  +  J  -  1 

C  F  =  F  -  DF 

c  DO  K  =  2  ,  J2 

c  N  =  J  -  1  +  K 

C  CALL  MOVE ( 4 , N ) 

C  CALL  MOVE ( 5 , K ) 

C  ENDDO 

c  GOTO  190 

c  END IF 

END  IF 


END  IF 


CALL  MOVE (5, J) 

C 

C* ********************************************************************** 

C*  * 

C*  CALCULATE  THE  MASS  FLOW  RATE  * 

C*  * 


C 


IF (J.EQ. 

,  1) THEN 

AREA  X 

= 

0.0 

AREA  Y 

= 

0.0 

DEL  X 

= 

0.0 

DEL  Y 

= 

0.0 

R  AVE 

= 

0.0 

U  AVE 

= 

0.0 

V  AVE 

= 

0.0 

ELSE 

DEL  X 

= 

ABS (X4 -X ( J- 1) ) 

DEL  Y 

= 

ABS (Y4**2  -  Y(J-1)**2 

AREA  X 

= 

PI  *  DEL  Y  *  DELTA  + 

AREA  Y 

= 

2.0  *  PI  *  ( Y4  +  y(j-: 

R  AVE 

= 

(R4  +  R(J-l) )/2.0 

U  AVE 

= 

(U4  +  U(J-l) )/2.0 

V  AVE 

= 

(V4  +  V(J-l) )/2.0 

END  IF 

MFR 

- 

R  AVE* (U  AVE* AREA  X+V 

MFRT 

= 

MFR  +  MFRT 

ERRORM  = 

=  ( MFRT - MDOT ) /MDOT 

) *DELTA  +  (1-DELTA) 
( 1 -DELTA) *DEL  Y 


*ABS  (Y4  -  Y  ( J- 1)  ) 

+  ( 1 -DELTA) *DEL_X 


AP  =  A4  *  RAD 
PP  =  P4/GL 
LJ  =  L  +  J 


C* 

C* ********************************************************************** 

C*  * 

C*  OUTPUT  THE  FLOW  VARIABLES  * 

C*  * 

C* ********************************************************************** 

C* 

IF  (KW. EQ . 1) THEN 

WRITE (6, 1020) I, J,X4, Y4,U4,V4,M4,Q4,AP,PP,R4/T4 
WRITE (9, 1020) I, J,X4, Y4,U4,V4,M4,Q4,AP,PP,R4,T4 
IF (J.EQ.l) WRITE (3, 1020) I, J,X4, Y4,U4,V4,M4,Q4,AP,PP,R4,T4 

IF ( J . EQ . 1) WRITE (32,1020) I , J, X4 , Y4 , TM (T4 ) ,ZMUIFD(T4) ,RE(T4) ,BL(T4) , Y4+BL_SCALE*0 . 1404* ( (1.+X4) **0. 
125-1.0) 

IF (J.EQ. J2 .AND. Y4 . EQ . 0 . 0 . AND . X4 . LE . XE) WRITE (4,1020) I , J, X4 , Y4 , U4 , V4 , M4 , Q4 , AP , PP , R4 , T4 
IF (J.EQ. J2 .AND.Y4 . EQ . 0 . 0 .AND.X4 .LE.XE) write (6, *) '  MASS  FLUX  =  1 , MFRT , 

>  '  PERCENT  ERROR  =  ' , ERRORM* 1 0 0 . 

END  IF 

C* 

C* ********************************************************************** 

C*  * 

C*  PLACE  THE  FLOW  VARIABLES  INTO  STORAGE  * 

C*  * 

C* ********************************************************************** 
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c* 

XY(I,J,1)  =  X4 

XY(I,J,2)  =  Y4 

FLOW  (I ,  J,  1)  =  U4 
FLOW (I ,  J, 2 )  =  V4 

FLOW (I ,  J, 3 )  =  M4 
FLOW (I ,  J, 4)  =  Q4 
FLOW (I ,  J,  5)  =  A4 
FLOW (I ,  J,  6)  =  P4 
FLOW (I ,  J, 7 )  =  R4 
FLOW (I ,  J,  8)  =  T4 
C  JMAX  =  MAX ( J , JMAX ) 

C* 

C* ********************************************************************** 

C*  * 

C*  CHECK  FOR  CROSSING  LINES  * 

C*  * 

C* ********************************************************************** 
C* 

IF (J.GE.2) THEN 
P1_X  =  X Y ( I ,  J ,  1 ) 

P1_Y  =  XY(I,J,2) 

P2_X  =  XY(I,J-1,1) 

P2_Y  =  XY(I,J-1,2) 

DO  JJ  =  2  ,  J2 
P3_X  =  XY(I-1,JJ,1) 

P3_Y  =  XY(I-1,JJ,2) 

P4_X  =  XY (I-1,JJ-1,1) 

P4_Y  =  XY (I-1,JJ-1,2) 

CALL  LINE_INTERSECTION (P1_X, P1_Y, P2_X, P2_Y, P3_X, 

>  P3_Y,P4_X,P4_Y,H_FACTOR,G_FACTOR, IX, IY) 

IF (H_FACTOR . GE .0.0  .AND.  H_FACTOR . LE .1.0  .AND. 

>  G_FACTOR . GE .0.0  .AND.  G_FACTOR . LE .1.0  ) THEN 

WRITE ( 6 , * ) 1  [3 lmCHARACTERISTICS  INTERSECTION  DEDECTED ![ 0m 1 

C ...  interpolate  for  new  point 


X4 

= 

(1.0 

-  G 

FACTOR) *P1 

X 

+ 

G  FACTOR*P2  X 

Y4 

= 

(1.0 

-  G 

"FACTOR)  *Pl" 

Y 

+ 

G  FACTOR*P2  Y 

U4 

= 

(1.0 

-  G 

“FACTOR)  *U4 

+ 

G 

FACTOR* FLOW (I, J-l, 1) 

V4 

= 

(1.0 

-  G 

"FACTOR)  *V4 

+ 

G 

FACTOR* FLOW ( I , J- 1 , 2 ) 

M4 

= 

(1.0 

-  G 

"FACTOR)  *M4 

+ 

G 

“FACTOR*  FLOW ( I , J- 1 , 3 ) 

Q4 

= 

(1.0 

-  G 

“FACTOR)  *Q4 

+ 

G 

“FACTOR*  FLOW ( I , J- 1 , 4 ) 

A4 

= 

(1.0 

-  G 

"FACTOR)  *A4 

+ 

G 

FACTOR*FLOW(I, J-l, 5) 

P4 

= 

(1.0 

-  G 

"FACTOR)  *P4 

+ 

G 

“FACTOR* FLOW (I, J-l, 6) 

R4 

= 

(1.0 

-  G 

“FACTOR)  *R4 

+ 

G 

“FACTOR*  FLOW ( I , J- 1 , 7 ) 

T4 

= 

(1.0 

-  G 

"FACTOR)  *T4 

+ 

G 

FACTOR*FLOW(I, J-l, 8) 

c* 

C* ********************************************************************** 

C*  * 

C*  PLACE  THE  FLOW  VARIABLES  INTO  STORAGE  * 

C*  * 

C* ********************************************************************** 
C* 

X  Y  ( I ,  J ,  1 )  =  X4 
X  Y  ( I ,  J ,  2 )  =  Y4 
FLOW  (I ,  J,  1)  =  U4 
FLOW (I ,  J, 2 )  =  V4 

FLOW (I ,  J, 3 )  =  M4 
FLOW (I ,  J,  4)  =  Q4 
FLOW (I ,  J,  5)  =  A4 
FLOW (I ,  J,  6)  =  P4 
FLOW (I ,  J, 7 )  =  R4 
FLOW (I ,  J,  8)  =  T4 

X(J)  =  X4 
Y  ( J)  =  Y4 
P(J)  =  P4 
R ( J)  =  R4 
U(J)  =  U4 
V(J)  =  V4 
Q ( J)  =  Q4 
A  ( J)  =  A4 

BACKSPACE (9) 

WRITE (9,1020) I ,  J, X4 ,  Y4 , U4 , V4 , M4 , Q4 , A4*RAD, P4/GL, R4 , T4 
WRITE (6, 1020) I, J,X4, Y4 , U4 , V4 , M4 , Q4 , A4 *RAD , P4/GL , R4 , T4 
c  WRITE (9,1020) I,JJJ, X4 , Y4 , U4 , V4 , M4 , Q4 , A4*RAD, P4/GL, R4 , T4 

c  WRITE (6,1020) I,JJJ, X4 , Y4 , U4 , V4 , M4 , Q4 , A4*RAD, P4/GL, R4 , T4 

DO  JJJ  =  J+l  ,  J2 
XY (I , JJJ, 1)  =  XY(I-1, JJJ, 1) 

XY ( I , JJJ, 2 )  =  XY (I-1,JJJ,2) 
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FLOW (I , JJJ, 1)  =  FLOW (1-1, JJJ, 1) 

FLOW (I , JJJ, 2 )  =  FLOW (I- 1, JJJ, 2) 

FLOW (I , JJJ, 3 )  =  FLOW (I- 1, JJJ, 3) 

FLOW  (I ,  JJJ,  4)  =  FLOW (1-1,  JJJ, 4) 

FLOW  (I ,  JJJ,  5)  =  FLOW (1-1,  JJJ,  5) 
FLOW ( I , JJJ, 6 )  =  FLOW (1-1, JJJ, 6) 
FLOW (I,JJJ,7)  =  FLOW (1-1, JJJ, 7) 

FLOW (I,JJJ, 8)  =  FLOW (I-1,JJJ,8) 


X(JJJ) 

= 

XY(I, JJJ, 1) 

Y (JJJ) 

= 

XY(I, JJJ, 2) 

P (JJJ) 

= 

FLOW(I, JJJ, 6) 

R (JJJ) 

= 

FLOW (I, JJJ, 7) 

U(JJJ) 

= 

FLOW (I, JJJ, 1) 

V(JJJ) 

= 

FLOW (I, JJJ, 2) 

Q (JJJ) 

= 

FLOW (I, JJJ, 4) 

A (JJJ) 

= 

FLOW(I, JJJ, 5) 

LJ  =  L 

+ 

JJJ 

WRITE  (6 

, 1020) I, JJJ, XY( I, JJJ, 1) 

FLOW(I, JJJ,3) , FLOW (I,JJJ,4) , FLOW ( I , JJJ, 5 ) *RAD , FLOW ( I , JJJ, 6 ) /GL , FLOW ( I , JJJ, 7 ) ,FLOW(I 
WRITE (9, 1020) I, JJJ,XY(I, JJJ, 1) ,XY(I, JJJ, 2) , FLOW (I , JJJ, 1) , FLOW ( I , JJJ, 2 ) , 

> 

FLOW(I, JJJ, 3) , FLOW (I, JJJ, 4) , FLOW ( I , JJJ, 5 ) *RAD , FLOW (I , JJJ, 6 ) /GL , FLOW ( I , JJJ, 7 ) ,FLOW(I 
ENDDO 
C 

C*  ********************************************************************** 

C*  * 

C*  SMOOTH  THE  PROFILE  * 

C*  * 

c*  ********************************************************************* * 

c 

IF (SMOOTH) THEN 
DO  LL  =  1  ,  J2 
BACKSPACE (9) 

ENDDO 

J_START  =  1 
J_END  =  J2 
I_LINE  =  I 
I_FILE  =  9 

CALL  SMOOTH_PROFILE ( JSTART , JEND , I_LINE , 0 , I_FILE) 

END  IF 


GOTO  290 
END  IF 


ENDDO 


C* 

C* 

C* 

C* 

C* 

C* 

C* 


********************************************************************** 

* 

END  OF  LINE  CROSSING  CHECK  * 

* 

********************************************************************** 


END  IF 


C* 


c*  * 

c*  AT  the  end  of  each  j  index  loop  we  need  to  check  if  the  * 

C*  CENTERLINE  MACH  NUMBER  HAS  REACHED  THE  DESIGNED  MACH  NUMBER.  * 

C*  * 


C* ********************************************************************** 
C* 

IF (NOZ . EQ . 0  .AND.  Y4 . EQ . 0 . 0  .AND.  M4 . GE . EMD) THEN 


J_START  =  1 

J_END  =  J2 
LOFFSET  =  L 
L_OFFSET  =  0 

I  LINE  =  I 


C. . .  need  to  backspace  the  plot  files 
c  BACKSPACE (3) 

write ( 6 , * ) 1 I_LINE , J_END  = ' , I_LINE , J_END 

DO  LL  =  1  ,  J2 
BACKSPACE (9) 

ENDDO 

c  DO  LL  =  1  ,  J2 


, JJJ, 8) 
, JJJ, 8) 
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c 

c 

C* 

C**** 

c* 

c* 

c* 

c**** 

c* 


c* 

c**** 

c* 

c* 

c* 

c**** 

c* 


c 

c**** 

c* 

c* 

c* 

c**** 

c 

270 

c 

c**** 

c* 

c* 

c* 

c**** 

c 


c 

c 


c280 

c 

C 

c**** 

c* 

c* 

c* 

c**** 

c 

290 

C 


WRITE ( 9  ,  * ) 1  ' 

ENDDO 

******************************************************************* 

* 

FIND  THE  LOCATION  WHERE  MACH  NUMBER  =  DESIGNED  MACH  NUMBER  * 

* 

******************************************************************* 

CALL  MLINE ( JSTART , JEND , I_LINE , LOFFSET , 9 ) 

X4  =  XY(I,J_END,1) 

Y4  =  XY ( I , J_END ,2) 

U4  =  FLOW ( I , JEND , 1 ) 

V4  =  FLOW ( I , J_END , 2 ) 

M4  =  FLOW ( I , J_END , 3 ) 

Q4  =  FLOW ( I , JEND , 4 ) 

A4  =  FLOW ( I , J_END , 5 ) 

P4  =  FLOW ( I , J_END , 6 ) 

R4  =  FLOW ( I , JEND , 7 ) 

T4  =  FLOW ( I , J_END , 8 ) 

DESIGNED_M= . TRUE . 

RETURN 

END  IF 

******************************************************************* 

* 

CHECK  FOR  EXIT  PLANE  LOCATION  * 

* 

******************************************************************* 

IMAX  =  I 

IF (  J.EQ.l  .AND.  X4  . GE .  XE  .AND.  I VL . NE . 1 ) THEN 
EXITEND  =  .TRUE. 

RETURN 
END  IF 

******************************************************************* 

* 

END  OF  J  INDEX  LOOP  * 

* 

******************************************************************* 

CONTINUE 

******************************************************************* 

* 

SMOOTH  THE  PROFILE  * 

* 

******************************************************************* 

IF (SMOOTH) THEN 
DO  LL  =  1  ,  J2 
BACKSPACE (9) 

ENDDO 

J_START  =  1 

J_END  =  J2 
LOFFSET  =  L 
I_LINE  =  I 
I_FILE  =  9 

CALL  SMOOTHPROFILE ( JSTART # JEND , IJLINE # LOFFSET , IFILE) 

END  IF 

IF(IEND.EQ.l)  J2  =  J2  -  1 
GOTO  290 

J2  =  J  -  1 
I END  =  1 

******************************************************************* 

* 

END  OF  I  INDEX  LOOP  * 

* 

******************************************************************* 

CONTINUE 
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c**** 

c* 

c* 

c* 

c**** 

c 

c 

c**** 

c* 

c* 

c* 

c**** 

c 

c 

c**** 

c* 

c* 

c* 

c**** 

c 

1010 

1020 

c 

c**** 

c* 

c* 

c* 

c**** 

c 


c 

c**** 

C** 

C** 

c** 

C** 

C** 

c** 

C** 

C** 

c** 

C** 

C** 

c**** 

c 

c 

c**** 

C** 

C** 

c** 

c**** 

c 


c 

c**** 

c** 

C** 

c** 

c**** 

c 


1 


******************************************************************* 

* 

SET  THE  ENDING  I  INDEX  TO  BE  USED  LATER  * 

* 

******************************************************************* 

I MAX  =  I 

******************************************************************* 

* 

RETURN  TO  THE  MAIN  CALLING  PROGRAM  * 

* 

******************************************************************* 

RETURN 

******************************************************************* 

* 

FORMAT  STATEMENTS  * 

* 

******************************************************************* 


FORMAT ( / , 1  I  J  X  Y  U  VELOCITY  ' 

> 1  MACH  NUMBER  ' ,  'VELOCITY  MAG '  ,  '  FLOW  ANGLE  PRESSURE  DENSITY 

FORMAT (215, 1P10E12 .4) 

******************************************************************* 

* 

END  OF  LINE  * 

* 

******************************************************************* 

END 

SUBROUTINE  HUNT (XX, N, X, JLO) 

****************************************************************** 


** 

HUNT  FOR  NEAREST  NEIGHBOR  IN  XX  FOR  X  ** 

** 

INPUT:  ** 

XX(MAXD)  ARRAY  OF  OLD  X  DATA  ** 

N  MAXIMUM  DIAMENSION  OF  XX  ** 

X  X  POINT  AT  WHICH  XX  IS  TO  BE  SCANED  FOR  ** 

** 

OUTPUT:  ** 


JLO  NEW  INDEX  VALUE  WHERE  XX(JLO)  <  X  <  XX(JLO+l)  ** 

** 

****************************************************************** 


****************************************************************** 

** 

IMPLICIT  STATEMENTS  ** 

** 

****************************************************************** 

INTEGER  JLO , N 
REAL  X, XX (N) 

INTEGER  INC , JHI , JM 
LOGICAL  ASCND 

****************************************************************** 

** 

TRUE  IF  ASCENDING  ORDER  ** 

** 

****************************************************************** 


ASCND=XX (N) .GT.XX(l) 

IF (JLO.LE. 0 .OR. JLO.GT.N) THEN 
JLO=  0 
JHI=N+1 
GOTO  3 
END  IF 


INC=1 

IF (X.GE.XX (JLO) .EQV. ASCND) THEN 
JHI= JLO+INC 
IF (JHI . GT . N) THEN 
JHI=N+1 


VELOCITY  ' , 

' , '  TEMPERATURE ' ) 
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ELSE  IF (X . GE . XX ( JHI ) . EQV . ASCND) THEN 
JLO= JHI 
INC=INC+INC 
GOTO  1 
END  IF 
ELSE 

JHI= JLO 

2  JLO= JHI - INC 

IF ( JLO.LT. 1) THEN 
JLO=  0 

ELSE  IF (X . LT . XX (JLO) . EQV . ASCND) THEN 
JHI= JLO 
INC=INC+INC 
GOTO  2 
END  IF 
END  IF 

3  IF (JHI- JLO. EQ. 1) RETURN 
JM= (JHI+JLO) / 2 

IF (X . GT . XX ( JM) .EQV. ASCND) THEN 
JLO= JM 
ELSE 

JHI= JM 
END  IF 

GOTO  3 


END 

SUBROUTINE  SMOOTHPROFILE ( JSTART, J_END, I_LINE, LOFFSET, I_FILE) 

C 

C* ******************************************************************** 


c**  * 
C**  SUBROUTINE  SMOOTHPROFILE  WILL  SPREAD  OUT  THE  POINTS  ALONG  * 
C**  ALONG  THE  MARCHING  FRONT  TO  PREVENT  POINTS  FROM  GATHERING  * 
C**  TOGETHER.  THIS  HELPS  WEAK  WAVES  FROM  BECOMING  STRONGER.  * 

C**  * 

C**  WHERE:  * 
C**  JSTART  =  STARTING  LOCATION  ALONG  THE  WAVE  FRONT  * 
C**  JEND  =  ENDING  LOCATION  ALONG  THE  WAVE  FRONT  * 
C**  I_LINE  =  I  INDEX  OF  THE  WAVE  FRONT  * 
C**  L_OFFSET  =  OUTPUT  OFF  SET  ON  J  INDEX  * 

C**  * 


c* ******************************************************************** 

c 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN ' 

DEBUG  =  .FALSE. 

C 

C* ******************************************************************** 
C* 

c*  OUTPUT  THE  HEADER  STATEMENTS 

C* 

C* ******************************************************************** 

C 

WRITE (6,*)'  1 

ASTR  =  'CORRECTING  PROFILE:  SMOOTHING  STEP' 

CALL  BANNER (ASTR) 

C 

C* ******************************************************************** 
C* 

C*  SET  INITIAL  CONSTANTS 

C* 

C* ******************************************************************** 

c 

MFRT  =  0.0 

S  =0.0  ! increment  path  lenght 

STP  =  0.0  !path  length 

JDELTA  =  JEND  -  JSTART  +  1  ! Number  of  points 

I_LINE  =  I_LINE  +  1  !put  new  data  into  the  next  I 

IF (DEBUG) write ( 6 ,* ) 1  Number  of  points  = 1 , JDELTA 
C 

C* ******************************************************************** 
C* 

C*  FIND  THE  TOTAL  LINEAR  PATH  LENGTH  OF  THE  WAVE  FRONT 

C* 

C* ******************************************************************** 

C 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


** 

* 

* 

* 

** 


** 

* 

* 

* 

** 


line 
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DO  J  =  JSTART,  JEND 

c  IF (J.NE. J_START) S  =  SQRT((Y(J)  -  Y(J-1))**2 

c  >  +  (X ( J)  -  X(J-l) ) **2)  !find  increment  path  length 

IF (J.NE. JSTART) S  =  SQRT ( (XY ( I_LINE- 1 , J, 2 )  -  XY (I_LINE-1, J-l, 2) ) **2 

>  +  (XY (I_LINE-1, J, 1)  -  XY (I_LINE- 1,J-1,1) ) **2)  ! f ind  increment  path 

length 

IF (DEBUG) write (6, *) 1 J,S=' , J,S 
STP  =  S  +  STP  ! total  path  length 

ENDDO 

C 

C* ********************************************************************** 

C*  * 

C*  FIND  THE  STEP  SIZE  ON  NEW  PATH  * 

C*  * 

C* ********************************************************************** 

C 

DS  =  STP  /  ( JDELTA* 1 . - 1 . )  ! break  up  path  in  equal  potions 

IF (DEBUG) write (6, *) '  Total  path  length  = 1 , STP 
IF (DEBUG)  WRITE ( 6 , * ) 1  DS  =  1 , DS 

WRITE (6,1010) 

WRITE (IFILE, *) 1  ' 


IF (DEBUG) write ( 6 ,* ) 1  Number  of  points  = 1 , JDELTA 
C 

C*  ********************************************************************** 

c*  * 

c*  SET  THE  PATH  LENGTH  TO  ZERO  * 

C*  * 

c* ********************************************************************** 

c 

S  =  0 

c 

c* ********************************************************************** 
c*  * 

C*  START  SPACING  THE  DATA  BY  LOOPING  OVER  J  * 

C*  * 

C* ********************************************************************** 

C 


DO  J  =  JSTART,  JEND 


C 

C**** 

c* 

c* 

c* 

c**** 

c 


***************************************************************** 

INCREMENT  THE  PATH  LENGTH 

***************************************************************** 


* 


* 


* 

* 

* 

* 

* 


IF (J.NE. JSTART) S  =  S  +  DS 
C 

C*  * 

C*  FIX  THE  STARTING  POINT  * 

C*  * 

c 


IF ( J.EQ. J_START) THEN 
ZETA  =  0.0 
J1  =  JSTART+l 
S  =0.0 
GOTO  10 
END  IF 


C* 

C*  FIX  THE  ENDING  POINT 

C* 

C 


* 

* 

* 

* 

* 


IF (J.EQ. JEND) THEN 
ZETA  =  1.0 
J1  =  J_END 
S  =  STP 
GOTO  10 
END  IF 


STIOLD  =  STP 
ST1  =0.0 
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C*  ********************************************************************** 

c*  * 

C*  FIND  THE  (X, Y)  POINT  ON  PATH  S  * 

C*  * 

c*  ********************************************************************* * 

c 

DO  J1  =  JSTART+l,  JEND 

Sl=  SQRT ( (Y ( Jl)  -  Y ( Jl-1) ) **2  +  (X(J1)  -  X(J1-1))**2) 

ST1  =  SI  +  ST1 
C 

C*  ********************************************************************** 

c*  * 

C*  SEARCH  FOR  THE  LOCAL  PATH  GREATER  OR  EQUAL  TO  PATH  S  * 

C*  * 

C*  ********************************************************************** 

C 

IF (ST1.GE.S) THEN 

ZETA  =  (S-STIOLD)  /  (ST1  -  STl_OLD) 

c  write (6,*) 1 ZETA, S , ST1 , STl_OLD, Jl 1 , ZETA, S , ST1 , STl_OLD, Jl 

GOTO  10 
END  IF 

STIOLD  =  ST1 
C 

C*  ********************************************************************** 

c*  * 

C*  END  OF  THE  SEARCH  LOOP  J  * 

C*  * 

c*  ********************************************************************** 

c 

ENDDO 
ZETA  =  1.0 
10  CONTINUE 


C*  ********************************************************************* * 

c*  * 

C*  SINCE  WE  ADVANCED  BY  ONE  POINT  RESET  JLO  BACK  BY  ONE  * 

C*  * 

c*  ********************************************************************** 

c 

JLO  =  Jl-1 
C 

C*  ********************************************************************** 

c*  * 

C*  FIND  THE  NEW  VALUE  BASE  ON  ZETA  * 

C*  * 

c*  ********************************************************************** 

c 

XY(I_LINE,J,1)  =  (1. -ZETA) *X( JLO)  +  ZETA*X ( JLO+1) 

XY ( I_LINE ,  J,  2 )  =  (1. -ZETA) *Y( JLO)  +  ZETA*Y (JLO+1) 

DO  N  =  1  ,  8 

FLOW (I_LINE, J, N)  =  (1 . -ZETA) *FLOW (I_LINE-1, JLO,N)  +  ZETA*FLOW (ILINE-l, JLO+1 ,N) 

ENDDO 

C  WRITE (6,*) 1 X , YY , JLO , ZETA= 1 , XY (I_LINE, J, 1) , YY, JLO, ZETA 

ENDDO 
C 

C*  ********************************************************************** 

C*  * 

C*  RELOAD  THE  NEW  DATA  INTO  THE  ARRAY  * 

C*  * 

C*  ********************************************************************** 

C 

DO  J  =  J  START  ,  J  END 


X(J)  =  XY (I_LINE, J, 1) 

Y ( J)  =  XY ( I_LINE , J, 2 ) 

P(J)  =  FLOW (ILINE, J, 6) 

R ( J)  =  FLOW ( I_LINE , J , 7 ) 

U(J)  =  FLOW (I_LINE, J, 1) 

V(J)  =  FLOW (ILINE, J, 2 ) 
c  Q ( J)  =  FLOW ( I_LINE , J , 4 ) 

Q ( J)  =  SQRT (FLOW (I_LINE,J, 1) **2  +  FLOW (ILINE, J, 2 ) **2 ) 
C  A  ( J)  =  FLOW  (I  LINE,  J,  5) 

A ( J)  =  ATAN (FLOW (I_LINE, J, 2) /FLOW (I_LINE, J, 1) ) 

X4  =  X(J) 

Y4  =  Y  ( J) 

P4  =  P(J) 
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R4  =  R  ( J) 

Q4  =  Q(J) 

A4  =  A  ( J) 

U4  =  U(J) 

V4  =  V(J) 

CALL  THERMO ( Q4  ,  P4  ,  R4  ,  T4  ,  C , M4 ) 


XY (I_LINE-1, J, 1)  =  X(J) 

XY ( I_LINE -  1 ,  J,  2  )  =  Y ( J) 

FLOW  (I^INE-l,  J,  1)  =  U(J) 

FLOW(I_LINE-l,  J,2)  =  V(J) 

FLOW ( I_LINE - 1 ,  J ,  3 )  =  M4 
FLOW ( I_LINE- 1 ,  J,  4 )  =  Q ( J) 

FLOW  (I^INE-l,  J,  5)  =  A  ( J) 

FLOW ( I_LINE - 1 ,  J ,  6 )  =  P ( J) 

FLOW ( I_LINE- 1 / J, 7 )  =  R(J) 

FLOW  (I_LINE-1,  J,  8)  =  T4 
C 

C* ********************************************************************** 
C*  * 

C*  FIND  THE  MASS  FLUX  * 


C* 


* 


C* 


********************************************************************** 


c 


IF (J.EQ 
AREAX 
AREA_Y 
DEL_X 
DELY 
R_AVE 
U_AVE 
V_AVE 
ELSE 
DEL_X 
DEL_Y 
AREA_X 
AREA_Y 
RAVE 
U_AVE 
V_AVE 
END  IF 


JSTART) THEN 
=  0.0 
=  0.0 
=  0.0 
=  0.0 
=  0.0 
=  0.0 
=  0.0 

=  ABS  (X4  -X  ( J- 1)  ) 

=  ABS ( (Y4**2  -  Y(J-1)**2  ) ) *DELTA  +  (1-DELTA) *ABS (Y4-Y (J-l) ) 
=  PI  *  DEL_Y  *  DELTA  +  ( 1 -DELTA) *DEL_Y 

=  2.0  *  PI  *  ( Y4  +  Y(J-l) ) /2 . 0*DEL_X*DELTA  +  ( 1 -DELTA) *DEL_X 

=  (R4  +  R(J-l))/2.0 
=  (U4  +  U(J-l) )/2.0 
=  (V4  +  V(J-l) )/2.0 


MFR  =  RAVE* (U_AVE* AREA_X+V_AVE* AREAY ) 
C  WRITE ( 6 , * ) 1  J , MFR , R_AVE= 1  ,  J , MFR , RAVE 

MFRT  =  MFR  +  MFRT 
ERRORM  =  (MFRT-MDOT) /MDOT 


ENDDO 

C 

C* ********************************************************************** 

C*  * 

C*  DUE  TO  THE  LINEAR  INTERPOLATION  WE  NEED  TO  FIX  THE  MASS  FLUX  * 

C*  BY  CORRECTING  THE  DENSITY  * 

C*  * 

c* ********************************************************************** 

c 

CORRECTION  =  MDOT/MFRT 
DO  J  =  JSTART  ,  JEND 
R ( J)  =  FLOW (I_LINE, J, 7 ) *MDOT/MFRT 
R4  =  R  ( J) 

FLOW ( I_LINE- 1 / J, 7 )  =  R(J) 

ENDDO 

MFRT  =  0.0 

DO  J  =  JSTART  ,  JEND 
X4  =  X(J) 

Y4  =  Y  ( J) 

P4  =  P(J) 

R4  =  R  ( J) 

Q4  =  Q(J) 

A4  =  A  ( J) 

U4  =  U(J) 

V4  =  V(J) 

CALL  THERMO (Q4 , P4 , R4 , T4 , C, M4) 

IF (J.EQ. JSTART) THEN 
AREA_X  =  0.0 
AREA_Y  =  0.0 
DEL_X  =  0.0 
DEL_Y  =  0.0 
RAVE  =  0.0 
UAVE  =  0.0 
V  AVE  =  0.0 
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ELSE 
DEL_X 
DEL_Y 
AREA_X 
AREAY 
R_AVE 
U_AVE 
V_AVE 
END  IF 


ABS (X4 -X ( J- 1) ) 

ABS ( (Y4**2  -  Y(J-1)**2  ) ) *DELTA  +  ( 1 -DELTA) *ABS (Y4 -Y (J- 1) ) 
PI  *  DEL_Y  *  DELTA  +  ( 1 -DELTA) *DEL_Y 

2.0  *  PI  *  ( Y4  +  Y(J-l) ) /2 . 0*DEL_X*DELTA  +  ( 1 -DELTA) *DEL_X 

(R4  +  R(J-l) )/2.0 
(U4  +  U(J-l) )/2.0 
(V4  +  V(J-l) )/2.0 


MFR  =  R_AVE* (U_AVE* AREA_X+V_AVE* AREAY ) 
WRITE ( 6  ,  * ) 1 J, MFR , R_AVE= 1  ,  J, MFR , R_AVE 
MFRT  =  MFR  +  MFRT 
ERRORM  =  (MFRT-MDOT) /MDOT 
ENDDO 


C*  * 
C*  OUTPUT  THE  NEW  SOLUTION  * 
C*  * 

c 


DO  i 

J  =  J  START 

X4  = 

X(J) 

Y4  = 

Y(J) 

P4  = 

P(J) 

R4  = 

R(J) 

Q4  = 

Q(J) 

A4  = 

A  ( J) 

U4  = 

U(J) 

V4  = 

V(J) 

CALL 

THERMO  (Q4,: 

AP 

=  A4*RAD 

PP 

=  P4  /GL 

IF (J.EQ. 1) THEN 
BACKSPACE (3) 

WRITE (3,1020) I_LINE, J,X4, Y4,U4,V4,M4,Q4,AP,PP,R4,T4 
END  IF 

WRITE  (6, 1020)  I_LINE- 1 ,  J+L  OFFSET ,  X4  ,  Y4  ,  U4  ,  V4  ,  M4  ,  Q4  ,  AP ,  PP ,  R4  ,  T4 
WRITE ( I_FILE ,1020) I_LINE - 1 , J+L_OFFSET , X4 , Y4 , U4 , V4 , M4 , Q4 , AP , PP , R4 , T4 
IF (J.EQ. JEND) write (6, *) 1  MASS  FLUX  =  1 , MFRT , 

>  '  PERCENT  ERROR  =  ' , ERROR_M*100 . ,  CORRECTION 

ENDDO 


I_LINE  =  I_LINE  -  1 

C  STOP 

C 

C*  ********************************************************************** 

c*  * 

C*  FORMAT  STATEMENTS  * 

C*  * 

c*  ********************************************************************** 

c 

1010  FORMAT (/,'  I  J','  X  ' ,  1  Y  '  U  VELOCITY  ',  '  ^ 

> 1  MACH  NUMBER  ',  'VELOCITY  MAG '  ,  '  FLOW  ANGLE  PRESSURE  DENSITY 

1020  FORMAT (215, 1P10E12 .4) 

C 

C*  ********************************************************************** 

C*  * 

C*  RETURN  STATEMENT  * 

C*  * 

C*  ********************************************************************** 

C 

RETURN 

C 

C*  ********************************************************************** 

c*  * 

C*  END  OF  LINE  * 

C*  * 

c*  ********************************************************************** 

c 

END 

SUBROUTINE  INTERIOR  POINT 


C.  . 
C.  . 
C.  . 
C.  . 
C.  . 


This  subroutine  computes  the  interior  region. 
Points  1  and  2  are  known 

Point  4  is  the  intersection  of  points  1  and  2 


VELOCITY  ' , 

'  ,  '  TEMPERATURE  1 ) 
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C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 
C.  . 


Point  3  is  located  between  points  1  and  2 

The  C-  characteristic  goes  through  points  1  and  4 

The  C+  characteristic  goes  through  points  2  and  4 

The  streamline  goes  through  points  3  and  4 

1* 

*  c- 
* 

* 

3*****  4 

* 

* 

*  C+ 

2* 


.  . .  Calculate  the  solution  at  an  interior  point 

INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 

.  .  .  CALCULATE  THE  COEFFICIENTS  FOR  THE  PREDICTOR 
ITER  =  0 

IF (X1-X2 .NE. 0) THEN 
L12  =  (Y1-Y2) / (X1-X2) 

ELSE 

L12  =0.0 
END  IF 


CALL  THERMO  (Q2 , P2 , R2 , T , C , M) 

LP  =  TAN (A2+ASIN (1 . /M) ) 

QP  =  GC*SQRT (M**2 -1 . ) / (R2*Q2**2) 

SP  =  DELTA/ (M*COS (A2+ASIN (1 . /M) ) ) 

IF (Y2 .EQ. 0 . 0)  SP  =  SP  *  SIN(A1)/Y1 
IF (Y2 .GT. 0 . 0)  SP  =  SP  *  SIN(A2)/Y2 

CALL  THERMO  (Q1 , PI , R1 , T , C , M) 

LM  =  TAN (Al-ASIN (1 . /M) ) 

QM  =  GC*SQRT(M**2-1.) / (R1*Q1**2) 

SM  =  DELTA*SIN(A1) / (Yl*M*COS (Al-ASIN (l./M) ) ) 

A3  =  0.5* (A1+A2 ) 

A4  =  A3 

. . .  PROJECT  CHARACTERSITIC  LINE  AND  FIND  UNKNOWN  POINT  4 

10  X4  =  ( Y1  - Y2 - lm*xl+lp*x2 ) / (lp-lm) 

Y4  =  Yl+LM* (X4-X1) 

IF ( Y4 . LT . 0 . 0 ) RETURN 

TP  =  -SP* (X4-X2) +QP*P2+A2 
TM  =  -SM* (X4-X1) +QM*P1-A1 

K  =  1 

. . .  INTERPOLATE  BACK  FROM  POINT  4  ALONG  THE  STREAM  LINE  TO  FIND  POINT  3 
(THE  POINT  BETWEEN  1  AND  2) 

2  0  L0  =  TAN (0.5* (A3  +A4 ) ) 

IF (L12 .NE. 0 . 0) THEN 

X3  =  (Y4-Y2-L0*X4+L12*X2) / (L12-L0) 

ELSE 
X3  =  XI 
END  IF 

Y3  =  Y4+L0* (X3-X4) 

D  =  (Y3-Y2) / (Y1-Y2) 

A3  =  A2+D*(A1-A2) 

IF (ITER.EQ. 0) A4=A3 

IF (K . GT . 1  .AND.  ABS (Y3 -YC) . LT . ERROR)  GOTO  30 
C. . .ERROR  in  decode 

I F ( K . GT .1000) THEN 

WRITE ( 6 , * ) 1  ERROR:  CAN  NOT  DECODE  FLOW  ANGLE!' 

WRITE (6, *) ' Y3  =  '  ,  Y3 
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WRITE (6, *) ' YC  =  '  ,  YC 
WRITE (6, *) 1 Y3-YC  =',Y3-YC 
WRITE  (6, *)  1  1 

555  FORMAT (1P4E15. 5) 


WRITE  (6, *)  'X 

= 

1 ,X1,X2,X3 

WRITE  (6, *)  '  Y 

= 

■ , Yl, Y2, Y3 

WRITE  (6, *)  'Q 

= 

' ,01,02,03 

WRITE  (6,*)  'P 

= 

' ,P1,P2,P3 

WRITE  (6, *)  'R 

= 

' ,R1,R2,R3 

WRITE  (6, *)  'A 

= 

' ,A1,A2,A3 

STOP 
END  IF 

XC  =  X3 
YC  =  Y3 

K  =  K  +  1 
GOTO  20 

30  Q3  =  Q2+D* (Q1-Q2 ) 

P3  =  P2+D*(P1-P2) 

R3  =  R2+D* (R1-R2) 

IF (ITER. GT. 0) GOTO  40 


Q4  =  Q3 
P4  =  P3 
R4  =  R3 


40  PO 
R8 
QO 
RO 


0.5*  (P3  +  P4) 
0.5* (R3+R4) 
0.5* (Q3+Q4) 
R8*Q0/GC 


CALL  THERMO  (QO , PO , R8 , T , C , M) 


AO  =  C**2/GC 
T01=R0*Q3+P3 
T02=P3 -A0*R3 

.  .  .  CALCULATE  THE  PROPERITIES  AT  POINT  4 

P4  =  (TP+TM) / (QP+QM) 

A4  =  TP-QP*P4 
Q4  =  (T01-P4) /RO 
R4  =  (P4 -T02 ) / AO 

.  .  .  TEST  FOR  CONVERGENCE 


WRITE ( 6 , * ) 1  ' 

WRITE (6, 100) 1  RO  =  '  ,R0 

WRITE (6, 100) 'AO  =  ' ,A0 

WRITE  (6, 100)  '  T01  =  '  ,T01 

WRITE (6, 100) '  T02  =  ',T02 

WRITE (6, 100) 1  Q+  =  '  ,QP 

WRITE (6,100) '  S+  =  '  ,SP 

WRITE (6, 100) '  T+  =  1 , TP 

WRITE (6, 100) '  Q-  =  1  ,  QM 

WRITE (6,100) '  S-  =  '  ,SM 

WRITE (6, 100) '  T-  =  1 , TM 

IF ( ITER . EQ . I COR)  RETURN 
IF (ITER.EQ. 0)  GOTO  50 


IF ( (ABS (X4-XD) .GT.E1)  .OR.  (ABS (Y4 - YD) . GT . El) )  GOTO  50 

IF ( (ABS (P4-PD) .GT.E2*PD)  .OR.  (ABS (R4 -RD) . GT . E3 *RD) )  GOTO  50 
IF ( (ABS (Q4-QD) .GT.E4*QD)  .AND.  (ABS (A4 - AD) . GT . E5*AD) )  RETURN 


.  .  .  CALCULATE  THE  COEFFICIENTS  FOR  THE  CORRECTOR 


ITER 

=  ITER  +  1 

XD 

_ 

X4 

YD 

= 

Y4 

PD 

= 

P4 

RD 

= 

R4 

QD 

= 

Q4 

AD 

= 

A4 

PO 

=  0 . 5*  (P2  +  P4) 

RO 

=  0.5* (R2  +R4 ) 

QO 

=  0 . 5* (Q2+Q4) 
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A8  =  0.5* (A2  +A4 ) 

Y0  =  0.5* ( Y2  +Y4 ) 

CALL  THERMO  (QO , PO , RO , T , C , M) 

LP  =  TAN (A8+ASIN (1.0/M) ) 

QP  =  GC*SQRT (M**2 -1 . 0) / (R0*Q0**2) 

PO  =  0.5* (P1+P4 ) 

RO  =  0.5* (R1+R4 ) 

SP  =  DELTA*SIN (A8) / (YO*M*COS (A8+ASIN (1 . 0/M) ) ) 

QO  =  0.5* (Q1+Q4 ) 

A8  =  0.5* (A1+A4 ) 

YO  =  0.5* ( Y1+Y4 ) 

CALL  THERMO  (QO , PO , RO , T , C , M) 

LM  =  TAN (A8 -AS IN ( 1 . 0/M) ) 

QM  =  GC*SQRT (M**2 - 1 . 0 ) / (R0*Q0**2) 

SM  =  DELTA*SIN (A8) / (YO*M*COS (A8-ASIN (1 . 0/M) ) ) 

100  FORMAT (A, 1P2E15 . 5) 

GOTO  10 


END 

SUBROUTINE  MLINE ( JSTART , JEND , I_LINE , L_OFFSET , IFILE) 


C* 

C*  FIND  NEW  MACH  LINE 

C* 

C 

C* 

C* 

C*  INCLUDE  AND  COMMON  STATEMENTS 

C* 

C* 


* 

* 

* 

* 

* 


* 

* 

* 

* 

* 


INCLUDE  1 MOC . PAR  1 
INCLUDE  1 MOC . CMN 1 


C* 

C*  OUTPUT  THE  HEADER 
C* 

C 


* 

* 

* 

* 

* 


WRITE  (6,*)'  ' 

ASTR  =  'INTERPOLATE  TO  FIND  NEW  LOCATION  AT  THE  DESIGNED  MACH  NUMBER' 
CALL  BANNER (ASTR) 


WRITE (6,1010) 

C  WRITE (I_FILE, *) '  ' 

C  DO  JI  =  J_START , J_END 

C  IF (XY ( I_LINE- 1 , JI , 2 ) . EQ . 0 . 0  .AND.  XY ( IJLINE- 1 , JI , 1) . NE . 0 . 0 ) THEN 

C  END IF 

C  ENDDO 

JI  =  JEND  -  1 

c  write (6,*) ' FLOW (I_LINE-1 , JI , 3 ) = ■ , FLOW (I_LINE-1, JI, 3) 

c  write (6,*) ' FLOW ( I_LINE , JEND ,  3 )  =  '  , FLOW ( ILINE , JEND , 3 ) 

ZETA  =  (EMD  -  FLOW ( I_LINE- 1 , JEND ,  3 )  )  /  (FLOW (I_LINE, JEND, 3 )  -  FLOW ( I_LINE- 1 , JEND , 3 ) ) 

C  WRITE (6, *) ' ZETA= ', ZETA 

IF (ZETA. LT . 0 . 0) THEN 
WRITE ( 6 , * ) ' Warning :  ZETA= ' , ZETA 
ZETA  =  0.0 
END  IF 

I F ( ZETA . GT . 1 . 0 ) THEN 
WRITE ( 6  ,  * ) ' Warning :  ZETA= ' , ZETA 
ZETA  =  1.0 
END  IF 

C... interior  points 
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DO  J  =  JEND-l,  JSTART+l,  -1 

XY(I_LINE, J, 1)  =  (1. -ZETA) *XY(I_LINE-1/ J, 1)  +  ZETA*XY ( I_LINE ,  J- 1 , 1 ) 

XY ( I_LINE ,  J,  2 )  =  (1. -ZETA) *XY(I_LINE-1, J,2)  +  ZETA*XY ( I_LINE , J- 1 , 2 ) 

DO  N  =  1  ,  8 

FLOW (ILINE, J, N)  =  (1 . -ZETA) *FLOW (I_LINE-1, J,N)  +  ZETA*FLOW (I_LINE, J-1,N) 

ENDDO 
ENDDO 

C. . .Wall  point 

XY ( I_LINE ,1,1)  =  ( 1 . - ZETA) *XY ( I_LINE -1,1,1)  +  ZETA*XY ( I_LINE ,1,1) 

XY ( I_LINE ,1,2)  =  (1. -ZETA) *XY(I_LINE-1/ 1,2)  +  ZETA*XY ( I_LINE ,1,2) 

DO  N  =  1  ,  8 

FLOW ( I_LINE , 1 , N)  =  ( 1 . - ZETA) *FLOW ( I_LINE - 1 , 1 , N)  +  ZETA*FLOW ( I_LINE , 1 , N) 
ENDDO 

C ...  Centerline  point 
J  =  J_END 

XY (I_LINE, J, 1)  =  (1. -ZETA) *XY ( I _LINE- 1 , J, 1)  +  ZETA*XY ( I_LINE , JEND , 1 ) 

XY (ILINE, J, 2 )  =  (1. -ZETA) *XY ( IJLINE- 1 , J,2)  +  ZETA*XY ( IJLINE , JEND , 2 ) 

DO  N  =  1  ,  8 

FLOW (IJLINE, J,N)  =  ( 1 .- ZETA) * FLOW ( ILINE- 1 , J, N)  +  ZETA* FLOW ( IJLINE , JEND , N) 
ENDDO 

C. . .Reload  the  new  data 

DO  J  =  JSTART  ,  JEND 

X(J)  =  XY (I_LINE, J, 1) 

Y ( J)  =  XY ( I_LINE , J, 2 ) 

P(J)  =  FLOW ( I_LINE , J , 6 ) 

R ( J)  =  FLOW ( I_LINE , J, 7 ) 

U(J)  =  FLOW (ILINE, J, 1) 

V(J)  =  FLOW ( I_LINE , J , 2 ) 
c  Q ( J)  =  FLOW ( I_LINE , J, 4 ) 

Q ( J)  =  SQRT (FLOW (IJLINE, J, 1) **2  +  FLOW (ILINE, J, 2 ) **2 ) 

C  A ( J)  =  FLOW ( I_LINE , J , 5 ) 

A ( J)  =  ATAN( FLOW (IJLINE, J,2) /FLOW ( IJLINE , J,l) ) 

X4  =  X(J) 

Y4  =  Y  ( J) 

P4  =  P(J) 

R4  =  R  ( J) 

Q4  =  Q  ( J) 

A4  =  A  ( J) 

U4  =  U(J) 

V4  =  V(J) 

CALL  THERMO (Q4,P4,R4,T4,C,M4) 


FLOW (ILINE, J, 1)  =  U(J) 

FLOW (IJLINE, J,2)  =  V(J) 

FLOW ( I_LINE , J , 3 )  =  M4 
FLOW ( I_LINE , J, 4 )  =  Q ( J) 

FLOW (I_LINE, J, 5)  =  A(J) 

FLOW ( I_LINE , J , 6 )  =  P ( J) 

FLOW ( I_LINE , J, 7 )  =  R(J) 

FLOW (ILINE, J, 8)  =  T4 


ENDDO 

C. . .Output  the  new  data 
MFRT  =  0.0 

DO  J  =  J_START  ,  J_END 
X4  =  X(J) 

Y4  =  Y  ( J) 

P4  =  P(J) 

R4  =  R  ( J) 

Q4  =  Q  ( J) 

A4  =  A  ( J) 

U4  =  U(J) 

V4  =  V(J) 

CALL  THERMO (Q4,P4,R4,T4,C,M4) 

AP  =  A4  *  RAD 
PP  =  P4  /GL 

I F ( J . EQ . 1 ) THEN 
AREA_X  =  0.0 
AREAJY  =  0.0 
DEL_X  =  0.0 
DEL  JY  =  0.0 
RAVE  =  0.0 
UAVE  =  0.0 
V  AVE  =  0.0 
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ELSE 
DEL_X 
DEL_Y 
AREA_X 
AREAY 
R_AVE 
U_AVE 
V_AVE 
END  IF 


ABS (X4 -X ( J- 1) ) 

ABS (Y4 - Y ( J- 1) ) 

PI  *  ABS (Y4**2  -  Y(J-1)**2  )  *  DELTA  +  ( 1 -DELTA) *ABS (Y4 -Y (J- 1 
2.0  *  PI  *  ( Y4  +  Y(J-l) ) /2 . 0*DEL_X*  DELTA  +  ( 1 -DELTA) *DEL_X 

(R4  +  R(J-l) )/2.0 
(U4  +  U(J-l) )/2.0 
(V4  +  V(J-l) )/2.0 


MFR  =  RAVE* (U_AVE* AREAX+VAVE* AREAY ) 

MFRT  =  MFR  +  MFRT 

ERRORM  =  (MFRT-MDOT) /MDOT 


IF  (KW.EQ. 1) THEN 
IF ( J . EQ . 1) THEN 
BACKSPACE (3) 

WRITE (3,1020) I_LINE ,  J, X4 , Y4 , U4 , V4 , M4 , Q4 , AP , PP , R4 , T4 
END  IF 

WRITE  (6, 1020)  I_LINE ,  J+L  OFFSET ,  X4  ,  Y4  ,  U4  ,  V4  ,  M4  ,  Q4  ,  AP ,  PP ,  R4  ,  T4 
c  WRITE (I_FILE, 1020) I_LINE , J+L_OFFSET, X4 , Y4 , U4 , V4 , M4 , Q4 , AP , PP , R4 , T4 

IF ( J . EQ . JEND) wri te ( 6 , * ) 1  MASS  FLUX  =  1 , MFRT , 

>  '  PERCENT  ERROR  =  ' , ERRORM* 1 0 0 . 

END  IF 


ENDDO 

1010  FORMAT (/,'  I  J'/'  X  Y  ' U  VELOCITY  ' 

> 1  MACH  NUMBER  'VELOCITY  MAG '  ,  '  FLOW  ANGLE  PRESSURE  DENSITY 

1020  FORMAT (215, 1P10E12 .4) 

c  GOTO  30 


C 

C* ********************************************************************** 

C*  * 

C*  OUTPUT  THE  HEADER  * 

C*  * 

C* ********************************************************************** 

C 

WRITE (6,*)'  ' 

ASTR  =  'CORRECTING  PROFILE:  SMOOTHING  STEP  VIA  MLINE ' 

CALL  BANNER (ASTR) 

MFRT  =  0.0 


S  =  0.0 
ST  =  0.0 

J_DELTA  =  J_END  -  J_START  +  1 
write(6,*)'  Number  of  points  = ' , JDELTA 
. . .put  new  data  into  the  next  I  line 
I_LINE  =  I_LINE  +  1 

C... start  at  top  of  nozzle  and  move  down  to  centerline 
DO  J  =  J_START,  JEND 
C...find  increment  path  lenght 

IF (J.NE. JSTART) S  =  SQRT((Y(J)  -  Y(J-1))**2  +  (X(J)  -  X(J-1))**2) 

C. . . total  path  length 
ST  =  S  +  ST 
ENDDO 

c  write (6,*)'  Total  path  length  = ' , ST 

C. . .break  up  path  in  equal  potions 
DS  =  ST  /  ( J_DELTA* 1 . - 1 . ) 

c  WRITE (6, *) 'DS  =  ' ,DS 

WRITE (6, 1010) 

WRITE (I_FILE, *) '  ' 

C...set  the  path  length  to  0 
S  =  0 

C. . .  start  spacing  the  data 
DO  J  =  J_START,  JEND 

C. . .  increment  the  path  length 

IF (J.NE. J_START) S  =  S  +  DS 

C...fix  the  starting  point 
IF (J.EQ. J_START) THEN 


VELOCITY  ' , 

' , '  TEMPERATURE ■ ) 
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ZETA  =  0.0 
J1  =  J_START+1 
S  =0.0 
GOTO  10 
END  IF 

C...fix  the  ending  point 
IF (J.EQ. JEND) THEN 
ZETA  =  1.0 
J1  =  JEND 
S  =  ST 
GOTO  10 
END  IF 


ST1_0LD  =  ST 
ST1  =  0.0 

C...find  (X, Y)  point  on  S  path 
DO  J1  =  JSTART+l,  JEND 

Sl=  SQRT ( (Y ( Jl)  -  Y ( Jl-1) ) **2  +  (X(J1)  -  X(J1-1))**2) 

ST1  =  SI  +  ST1 

C... search  for  local  path  >=  to  S  path 
IF (ST1.GE.S) THEN 

ZETA  =  (S-STl_OLD)  /  (ST1  -  STl_OLD) 

c  write (6,*) 1 ZETA, S , ST1 , STIOLD, Jl 1 , ZETA, S , ST1 , STIOLD, Jl 

GOTO  10 
END  IF 

STIOLD  =  ST1 
ENDDO 
ZETA  =  1.0 
10  CONTINUE 

C. . . Since  we  advance  by  one  point  reset  back 
JLO  =  Jl-1 


. . .Number  of  points 

JDELTA  =  JEND  -  JSTART  +  1 
WRITE (6, *)  'Number  of  points  1 , J  DELTA 
. . . spaceing 

DY  =  Y ( JSTART)  /  ( JDELTA* 1 . - 1 . ) 

write (6 ,*) 1 spaceing  =  ',DY 
. . . thickness 

YY  =  Y ( JSTART) 
write (6 ,  *) 1 thickness= 1 , YY 

I_LINE  =  I_LINE  +  1 

WRITE (6,1010) 

WRITE (IFILE, *) 1  ' 

. . .Evenly  space  the  data 
C  DO  J  =  J_START,  JEND 

C  IF ( J . NE . J_START) YY  =  YY  -  DY 

C  I F ( YY . LT .0.0) YY =0.0 

C. . .  Find  JLO 

C  IF (J.EQ. JSTART) THEN 

c  JLO  =  1 

C  ELSEIF (J.EQ. JEND) THEN 

C  JLO  =  JEND 

C  ELSE 

C  CALL  HUNT ( Y , JEND , YY , JLO ) 

C  END IF 

C. . .  Find  Zeta 
c  IF (JLO . GE . J 

c  ZETA 

c  ELSE 

C  ZETA 

C  END IF 

c  write (6,*) 1 YY, JLO, ZETA 1 , YY, JLO, ZETA 


END) THEN 
=  0.0 

=  (YY-Y (JLO) )  /  (Y ( JLO+1)  -  Y(JLO)) 
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C.  .  .  Correct  Zeta 
C  IF (ZETA. LT. 0 . 0) THEN 

c  WRITE (6, *) 'Warning:  ZETA= ' , ZETA 

c  ZETA  =  0.0 

c  END IF 

C  IF (ZETA . GT .1.0) THEN 

c  WRITE (6, *) 'Warning:  ZETA= ' , ZETA 

c  WRITE (6,*)'  JLO  =  ' , JLO 

c  ZETA  =  1.0 

c  END IF 


XY (ILINE, J,  1)  =  (1. -ZETA) *X( JLO)  +  ZETA*X ( JLO+1) 

XY (ILINE, J,  2 )  =  (1. -ZETA) *Y( JLO)  +  ZETA*Y (JLO+1) 

DO  N  =  1  ,  8 

FLOW (ILINE, J,  N)  =  (1 . -ZETA) *FLOW (IJLINE-1, JLO,N)  +  ZETA*FLOW ( IJLINE- 1 , JLO+1 , N) 

ENDDO 

C  WRITE (6,*) ' X , YY , JLO , ZETA= ' , XY (IJLINE, J,  1) , YY, JLO, ZETA 

ENDDO 

C. . .Reload  the  new  data 

DO  J  =  JSTART  ,  JEND 

X(J)  =  XY (IJLINE, J, 1) 

Y ( J)  =  XY ( I_LINE ,  J,  2 ) 

P(J)  =  FLOW (ILINE, J, 6) 

R ( J)  =  FLOW ( I_LINE ,  J ,  7  ) 

U(J)  =  FLOW (IJLINE, J, 1) 

V(J)  =  FLOW (ILINE, J, 2 ) 
c  Q  ( J)  =  FLOW  (IJLINE,  J,4) 

Q ( J)  =  SQRT (FLOW (IJLINE, J, 1) **2  +  FLOW (ILINE, J, 2 ) **2 ) 

C  A  ( J)  =  FLOW  (IJLINE,  J,  5) 

A  ( J)  =  ATAN  (FLOW  (IJLINE,  J,  2)  /FLOW  (IJLINE,  J,  1)  ) 

X4  =  X(J) 

Y4  =  Y  ( J) 

P4  =  P(J) 

R4  =  R  ( J) 

Q4  =  Q  ( J) 

A4  =  A  ( J) 

U4  =  U(J) 

V4  =  V(J) 

CALL  THERMO (Q4,P4,R4,T4,C,M4) 

XY  (IJLINE  -  1 ,  J,  1)  =  X(J) 

XY ( I_LINE- 1 , J, 2 )  =  Y ( J) 

FLOW  ( IJLINE- 1,  J,  1)  =  U(J) 

FLOW  (IJLINE- 1,  J,2)  =  V(J) 

FLOW ( I  JjINE- 1 , J, 3 )  =  M4 

FLOW  ( I  JjINE-  1 ,  J,  4 )  =  Q  ( J) 

FLOW  (IJLINE- 1,  J,  5)  =  A(J) 

FLOW  ( IJLINE- 1,  J,  6)  =  P  ( J) 

FLOW  ( IJLINE- 1,  J,7)  =  R(J) 

FLOW  ( IJLINE  - 1 ,  J ,  8 )  =  T4 

I F ( J . EQ . 1 ) THEN 
AREAJi  =  0.0 

AREA_Y  =  0.0 

DEL_X  =  0.0 

DEL  JT  =  0.0 

RAVE  =  0.0 

UAVE  =  0.0 

V_AVE  =  0.0 

ELSE 

DEL  JC  =  ABS (X4 -X ( J- 1) ) 

DEL_Y  =  ABS ( (Y4**2  -  Y(J-1)**2  ) ) *DELTA  +  (1-DELTA) *ABS (Y4 -Y (J- 1) ) 

AREA_X  =  PI  *  DEL_Y  *  DELTA  +  ( 1 -DELTA) *DEL_Y 

AREAY  =  2.0  *  PI  *  ( Y4  +  Y ( J- 1) ) /2 . 0*DEL_X*DELTA  +  ( 1 -DELTA) *DEL_X 

R_AVE  =  (R4  +  R(J-l))/2.0 

U_AVE  =  (U4  +  U(J-l))/2.0 

V_AVE  =  (V4  +  V ( J- 1) ) /2 . 0 

END  IF 

MFR  =  RAVE* ( U_AVE * ARE A_X + V_AVE  * ARE A_Y ) 

MFRT  =  MFR  +  MFRT 
ERROR_M= (MFRT-MDOT) /MDOT 

AP  =  A4*RAD 
PP  =  P4  /GL 

IF  (KW.EQ. 1) THEN 
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I F ( J . EQ . 1 ) THEN 
BACKSPACE (3) 

WRITE (3,1020) I_LINE, J,X4, Y4,U4,V4,M4,Q4,AP,PP,R4,T4 
END  IF 

WRITE  (6, 102  0)  I_LINE- 1 ,  J+LOFFSET ,  X4  ,  Y4  ,  U4  ,  V4  ,  M4  ,  Q4  ,  AP ,  PP ,  R4  ,  T4 
WRITE ( I_FILE ,1020) I_LINE - 1 , J+L_OFFSET ,  X4  ,  Y4  ,  U4  ,  V4  ,  M4  ,  Q4  ,  AP ,  PP ,  R4  ,  T4 
IF ( J . EQ . JEND) wri te ( 6 , * ) 1  MASS  FLUX  =  1 , MFRT , 

>  '  PERCENT  ERROR  =  1 , ERROR_M* 100. 

END  IF 

ENDDO 

30  CONTINUE 

I  LINE  =  I  LINE  -  1 


RETURN 

END 

SUBROUTINE  SPLINE (X, Y, N, YP1 , YPN, Y2 ) 

DIMENSION  X (N) , Y (N) , Y2 (N) , U (N) 

IF  (YP1.GT. . 99E30)  THEN 
Y2  (1) =0. 

U  (1) =0  . 

ELSE 

Y2 (1) =-0.5 

U  (1)  =  (3  .  /  (X(2)  -X  (1)  )  )  *  (  (Y  (2 )  -Y(l)  )  /  (X  (2)  -X(l)  )  -YP1) 

END  IF 

DO  11  1=2, N-l 

SIG=  (X  (I)  -X(I-l)  )/  (X(I  +  1)  -X(I-l)  ) 

P=SIG*Y2 (1-1) +2 . 

Y2 (I) = (SIG-1. ) /P 

U (I) = (6 . * ( (Y (1+1) -Y (I) ) / (X (1+1) -X ( I ) ) - ( Y ( I ) -Y(I-l) ) 

*  /(X(I)  -X(I-l)  )  )/(X(I  +  l)  -X(I-l)  )  -SIG*U(I-1)  )/P 

11  CONTINUE 

IF  (YPN.GT. . 99E30)  THEN 
QN=  0  . 

UN=  0  . 

ELSE 

QN=0 . 5 

UN= (3./ (X(N) -X(N-l) ) ) * (YPN- (Y (N) -Y(N-l) ) / (X (N) -X(N-l) ) ) 
END  IF 

Y2 (N) = (UN-QN*U (N-l) ) / (QN*Y2 (N-l) +1. ) 

DO  12  K=N- 1 , 1,-1 

Y2 (K) =Y2 (K) *Y2 (K+l) +U(K) 

12  CONTINUE 
RETURN 
END 
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